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Ik vervolg de verhandeling over de 
goniometrische functies maar zal 
trachten nu wat minder theoretisch te 
zijn en meer praktisch gerichte 
toepassingen te laten zien. 

Wel moet er eerst nog een klein 
beetje theorie doorgenomen worden. 

Ik kreeg een aantal reacties dat met 
name nog niet duidelijk was hoe je 
zowel de sinus van een hoek kon nemen 
als de sinus van een getal en hoe dat 
dan samenhing. 


Theorie 


Zoals ik in vorig artikel reeds 
beschreef kunnen we de sinus als 
volgt zien: 

Neem een cirkel met straal 1 en laat 
een punt gelijkmatig langs de cirkel 
bewegen. De afstand van dat punt tot 
de horizontale lijn door het 
middelpunt van de cirkel is dan de 
sinus van de hoek alpha. Deze hoek 
alpha wordt gevormd door de 
horizontale 1ijn door het middelpunt 
van de cirkel en de verbindingslijn 
van het middelpunt van de cirkel en 
het langs de cirkel bewegende punt. 


Moeilijk ? 


Teken voor uzelf een cirkel met een 
straal van b.v. 5 cm. Maakt U de 
tekening op ruitjespapier met hokjes 
van 5mm x 5mm is de straal precies 10 
hok jes lang. Noem het middelpunt van 
de cirkel M en teken vervolgens een 
horizontale 1ijn door het middelpunt. 
Het punt waar deze middellijn door de 
cirkel gaat (aan de rechterkant !) 
noemen we 5. Kies op de cirkel een 
punt P en teken de lijn van M door Р. 
De hoek die wordt gevormd door de 
twee lijnen die er nu staan noemen we 
alpha. Bedenk wel dat we altijd de 
hoek bedoelen gemeten vanaf de 
horizontale 1ijn tegen de wijzers van 
de klok in naar het het andere been. 


De sinus van de hoek alpha is nu de 
afstand van punt P tot de horizontale 
lijn. Ligt punt P boven de lijn еп is 
de hoek dus tussen 0 еп 180 graden 
hebben we direct de sinus ligt punt P 
echter onder de horizontale lijn dan 
zetten we er een min (-) voor. 

Al de afstanden worden genormaliseerd 
d.w.z. in verhouding tot de cirkel 





gegeven. Ligt punt P in ons geval 7 
hokjes boven de horizontale lijn 18 
de sinus van de bijbehorende hoek 
niet 7 (van de hokjes) of 35 (van de 
millimeters) of 3,5 (van de 
centimeters) maar 0,7. 

Om tot deze waarde te komen nemen we 
de verhouding van de lengte van de 
afstand van P tot de horizontale lijn 
en de lengte van de straal van de 
cirkel, 

Hier dus 7 hokjes / 10 hokjes = 0,7. 
Het is met de tekening ook simpel in 
te zien dat er twee hoeken tussen 0 
en 180 graden zijn met een sinus van 
0,7. Verder kunnen we ook simpel zien 
dat een sinus nooit groter dan Ì kan 
zijn. Еп dat де sinus van nul graden 
(punt P ligt dan op S) nul bedraagt. 





golvend 


Laten we punt P langs de cirkel lopen 
zien we dat de sinus begint bij O dan 
steeds groter wordt. en bij een hoek 
van 90 graden 1 geworden is. Dan 
neemt de waarde weer af tot hij bij 
180 graden 0 is geworden, verdergaand 
langs de cirkelonderkant wordt de 
sinuswaarde kleiner en 18 bij 270 
graden -1, vanaf dat punt neemt hij 
weer toe (maar blijft negatief want 
aan de onderkant) om bij 360 graden 
weer op О uit te komen, 

Draaien we door (je zou dan kunnen 
spreken van een hoek van 450 graden) 
herhaalt de hele cyclus zich, 

We krijgen dan een golvende beweging 
tussen -1 en +1. Deze beweging is in 
vele processen die niets met hoeken 
te maken hebben terug te vinden. 

Denk hierbij maar aan de roklengte. 
Men ging dus zoeken naar een vorm 
van definitie voor de sinus zonder 
het hoekbegrip nodig te hebben. 


Getal ipv hoek 


De waarde van de sinus wordt ook nu 
weer gerelateerd aan de cirkel, 

We beginnen bij punt 5 dus het 
snijpunt (rechts) op де horizontale 
lijn door het middelpunt van de 
cirkel met de cirkel zelf. 

Dan gaan we tegen de wijzers van de 
klok in (linksom) de cirkel volgen. 
We houden de afstand bij die we 
hebben afgelegd met punt P, 

De sinus die bij de afstand hoort is 
identiek aan de sinus van de hoek 
gedefinieerd, dus de afstand van punt 
Р tot de horizontale lijn. 
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Daar de definitie identiek is is het 
simpel in te zien dat er ook nu een 
golvende beweging tussen -l еп 1 zal 
ontstaan. Na welke afstand zal de 
cirkel echter een maal gerond zijn ? 
Of anders gezegd bij welke afstand 
begint de cyclus opnieuw ? 


Verhouding 


Bij een poging tot schatten van dit 
getal komen we al snel tot een waarde 
tussen 6 en 7, Nauwkeuriger 

benaderen leert ons de waarde 6,28.. 
Maar ‘de puntjes staan er niet voor 
niets de waarde is niet precies 6,28 
maar iets meer. Vroeger ging men niet 
uit van de straal van de cirkel maar 
van zijn middellijn, 


PI 


Het getal dat de verhouding van 
middellijn en omtrek van een cirkel 
aangeeft wordt aangeduid met Ж. 

Op de DAI zit deze waarde (in 
benadering) onder de naam PI, 


Vragen we aan de DAT PI krijgen we : 


*?PI 
3.14159 


Om het enigzins nauwkeuriger te 
krijgen kunnen we om PI-3 vragen : 


*?PI-3 
.141593 


Ме krijgen zo nog ее betrouwbare 3 
achter de 9, Het proces kunnen we 
theoretisch herhalen tot we velen 
cijfers van PI achter het decimaal 
teken kennen, De DAT laat ons echter 
al snel in de steek : 


*?PI-3.1 
4.15928Е-2 


De 2 (achter де 9) is correct maar de 
8 is beslist fout, 

Menig lezer zal opgevallen zijn dat 
ik net een 3 achter de 9 als goed 
beoordeelde terwijl bij de volgende 
benadering een 2 werd gevonden. Beide 
zijn hier goed ! Maar lees het a.u.b. 
goed het zesde cijfer achter het 
decimaal teken is een 2, daar echter 
het zevende cijfer meer dan 5 is 
dient PI afgerond op zes cijfers 
achter het decimaal teken als laatste 
cijfer een 3 te hebben. 
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Wat PI precies is kan niemand U in 
decimale notatie laten zien daar het 
een waarde is die niet zo te 
schrijven is. Wel kunnen we PI net zo 
nauwkeurig als we wensen decimaal 
benaderen. En bedenk als we het op 
b.v. 10 cijfers achter het decimaal 
teken afronden die afgeronde waarde 
minder dan een twintig miljardste 
scheelt van de werkelijke waarde, 


Voor diegenen die het naukeuriger 
willen weten volgt hier PI met wat 
meer cijfers dan gebruikelijk is. 





3.141592 653589 793238 462643 383279 


502884 197169 399375 ...... ... 


Fout 


De DAI gaat zoals we zien bij het 
zevende cijfer achter de decimaal in 
de fout en zelfs met een verschil van 
meer dan 2. Dit betekent dat als we 
PI vermenigvuldigen met 5 000000 
(vijf miljoen) de fout meer dan een 





bedraagt. Dit soort verschillen leidt 
soms tot rampzalige fouten. 
We tonen de fout eerst aan : 

00 REM TEST NAUWKEURIGHEID PI 
110 MODE O:LIST:PRINT 

20 TZ-TZ-l 

30 PRINT "** TEST No ";TZ;" wee" 
40 INPUT "WAARDE VOOR X "3X 

150 PRINT 

60 PRINT "SIN X 2 
70 PRINT SIN(X) 

80 PRINT "SIN X42*PI =". 
90 PRINT SIN(X+PI*2,0) 

200 PRINT "SIN X+5000000*PI ="; 
210 PRINT SIN(X+PI*5E6) 

220 PRINT :GOTO 120 


De variabele X moet vanzelfsprekend 
een floating point variabele zijn. 
Tik het gegeven programma in en laat 
het lopen. Probeer meerdere waarden 
voor X en verbaas U over een tweetal 
opmerkelijke zaken. 


1) de waarde van de sinus van X en 
van X + 2*PI verschillen soms in 
de laatste decimaal bij kleine 
waarden van X. 


Nemen we de X groot zal het verschil 
ook groter worden al is dit niet 
altijd го, 


2) De waarde van de sinus van 
X + 5000000*PI lijkt vrijwel 
onafhankelijk van de ingevoerde 
waarde voor Х. 


De gegeven waarde voor de sinus zal 
vrijwel altijd -1.0, 0.0 of 1.0 zijn! 


Nemen we de X echter zodanig dat hij 
weer aanzienlijk de totale waarde van 
X + 5000000*PI in de buurt van nul 
krijgt krijgen we ook weer 'normale' 
sinuswaarden. De aldus gevonden 
waarden zijn echter totaal 
onbetrouwbaar en mogen dus niet als 
basis voor beslissingen worden 
genomen. 


Is het erg ? 


Hoe komt deze fout tot stand en 
kunnen we hem voorkomen ? 

Ik heb de vorige keer reeds uitgelegd 
dat de waarden van sinus e.d. worden 
berekend door de DAI met behulp van 
een zogenaamde reeks, 


Een van de bekendste reeksen waarmee 
de sinus berekend kan worden is de 
volgende : 


3 5 7 9 

X X X X 
SIN(X)=X =- —- + --- - — + -— -... 

3t! - si 71 9! 


De eerste term in deze reeks is ook 
1 

te schrijven als X gedeeld door 1!, 

De reeks zit er dan nog mooier uit 

maar aangezien X tot de macht 1 

hetzelfde is als X en 1! gelijk is 

aan 1 kunnen we ook alleen X zetten. 


3 
Ter herinnering : X = X x X x X en 


ble 1 x 2 x 3 x á 
N.B. :Hier is x als maal bedoeld, 
Bekijken we eerst de noemers van de 


termen : 3! = 6 5! = 120 
7! 5040 9! = 362880 


We zien het werkelijk enorm snel 
oplopen en op het eerste gezicht 
worden de termen dus snel kleiner 
omdat ze door deze getallen worden 
gedeeld. Bekijken we echter de teller 
zien we dat daar X tot de derde, 
vijfde, zevende enz macht wordt 





genomen en ook dat neemt voor X'n 
boven de 1 snel toe, 


kleine X 


Is de X klein b.v. kleiner dan een 
tiende is de derde macht hiervan al 
kleiner dan een duizendste en dat 
wordt dan nog gedeeld door zes, 

De derde term in de reeks is kleiner 
dan een honderdduizendste gedeeld 
door 120 dus kleiner dan een tien 
miljoenste deze term beinvloed dan 
het zevende cijfer achter het 
decimaal teken, . 

De reeks behoeft in dit geval slechts 
tot de derde term uitgerekend te 
worden om al binnen zes cijfers 
nauwkeurig te zijn. 


rond 1 


Bekijken we nu het geval dat X rond 
de een ligt. Willen we nu een 
nauwkeurigheid tot het zesde cijfer 
achter het decimaal teken zal de 
noemer groter dan tien miljoen moeten 
zijn. Dit is bereikt bij de zesde 
term in de reeks (11!) en ook hier 
behoeven we dus echt niet zoveel 
termen uit te rekenen om de sinus in 
de gewenste nauwkeurigheid te 
krijgen. 


grotere X 


Is de X wat groter zo rond de tien 
bijvoorbeeld is het simpel in te zien 
dat we dan problemen kunnen krijgen 
met het uitrekenen van de teller als 
we te ver doorgaan in de reeks, 

De tiende term heeft teller X tot de 
macht 21 еп dat kan de DAT al niet 
meer aan. Is de berekeningsvolgorde 
efficient dus bv от еп om 
vermenigvuldigen en delen met de 
factoren uit teller en noemer kan 
misschien nog de term uitgerekend 
worden maar het probleem wordt alleen 
iets verschoven en niet echt 
opgelost. 


N.B. De termen gaan trouwens altijd 
verderop in de reeks kleiner worden. 


We zien dus dat het om meerdere 
redenen niet erg zinvol is om teveel 
termen van zo'n reeks te ontwikkelen. 
Ook voor andere reeksen die op de 
waarde van de sinus uitkomen gelden 
soortgelijke argumenten. 

Maar als de reeks altijd na een 
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beperkt aantal termen wordt 
afgebroken zal in sommige gevallen 
nog lang niet de juiste waarde 
bereikt zijn. Deze juiste waarde kan 
echter gezien de nauwkeurigheid 
waarin de DAI zelf werkt ook niet 
worden bereikt door veel meer termen 
te berekenen, Het dilemma van de 
ontwerpers van de firmware is 
hopelijk duidelijk. 

Men heeft bij DAI duidelijk en 
terecht gekozen voor vrijwel perfecte 
benaderingen voor de sinuswaarden als 
X tussen -10 en +10 zit. 


Heeft U berekeningen waarbij U buiten 
deze grenzen zit en U heeft wel zo 
nauwkeurig mogelijke sinuswaarden 
nodig, kunt U het best deze 
sinuswaarden zelf berekenen met een 
geschikt algoritme (zoals een reeks- 
ontwikkeling) die wel geschikt is 
voor de waarden van Х. die U juist 
nodig heeft. d 


Voor erg kleine hoeken (minder dan 
0.02) is de sinuswaarde van X vrijwel 
gelijk aan X zelf. Zie de gebruikte 
reeksontwikkeling waarbij de tweede 
term al hooguit het laatste cijfer 
nog iets laat varieren, 


Gaan we dit gebruiken voor grafische 
toepassingen kunnen onze normen nog 
wat ruimer gesteld worden. 

Gaan we b.v. een cirkel tekenen zal 
de gebruikte sinus met hoogstens 100 
vermenigvuldigd worden. Dit betekent 
weer op zijn beurt omdat bij het 
plaatsen van een punt toch wordt 
afgerond op hele punten dat de waarde 
van de gebruikte sinus al in de derde 
decimaal fout mag zijn omdat dit na 
vermenigvuldiging met 100 toch achter 
het decimaal teken komt en die 
grafisch niet significant is. 

Net niet meer toegestane fout in dit 
geval dus 1/100. De X waarbij dit 
gebeurt is zo dat X tot de derde 
gedeeld door 6 kleiner is dan 1/100, 
We berekenen dus de derdemachtswortel 


uit 0,06 en komen zo tot ongeveer 
0,39, 


Een andere manier om uit te vinden 
waar deze grens ligt, vooral nuttig 
voor die lezers die de wiskunde van 
het voorafgaande te lastig vonden, is 
volgend programma : 
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10 INPUT X:PRINT 
20 PRINT INT(100*SIN(X)), INT(100*X) 
30 PRINT :GOTO 10 


En met dit programma spelend zijn we 
er snel achter dat bij X is 0,39 nog 
dezeifde waarden voor INT(100.0*X) en 
INT(100,0*SIN(X)) gegeven worden. 
Deze waarde is overigens 0,38 en niet 
zoals verwacht 0,39, 


De hoek die bij deze waarde hoort is 
0.39 x 180 / PI graden en dat is = 
опреуеег twee en twintig еп een halve 
graad, Met deze wetenschap zou een 
cirkel met straal 100 al voor de Ы 
helft zonder grote ingrepen te 
tekenen zijn met gebruik van X in 
plaats van de sinus van Х. 

Om de hele cirkel te kunnen tekenen 
moeten we of speciale trucs uithalen 
of de straal beperken, 

We beredeneren als volgt : 

De hoek moet 45 graden kunnen zijn. 
Dat betekent dat de waarde van X een 
kwart PI dus 0,785.. moet zijn. 

Wat is het verschil tussen de sinus 
van X en X zelf ? En bij welke straal 
is dit verschil groter dan 1? 

Dit blijkt bij berekening iets meer 
dan zes te zijn maar onderstaand 
programma laat zien dat tot en met 
straal 10 er nog geen problemen zijn 
omdat we niet echt afronden, 





10 INPUT R:PRINT 

20 PRINT INT(SIN(0.785)*R), 
30 PRINT INT(0.785*R) 

40 PRINT :GOTO 10 


Aan U de eer om met deze kennis nu 
een slim cirkelalgoritme te maken dat 
bruikbaar is voor het tekenen van 
kleine (straal<=10) cirkels. 


Frank H. Druijff + 
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CLEAR 512: 014 ВИ(7.0),УН(8.9), 
B$ (7.9: (21 
ID=19:W=0:H=0@:SP=7:Y1=0% 
5070 699 
GOTO 1999 
СО окт 9 14 @ 9:н1-1 
PRINT CHR$(12);:CURSOR @,3:PRIMT 
“INVOER VAN DE BINAIRE 
GEGEVENS....” 
CURSOR @,2:PRINT "VOER DE WAARDE 
"97 of 717 IN VAN ВІТ" 
W-256:DW-0:X$-"" 
РОК TELLER-7 ТО 9 STEP -1 

PORE $75,32:CURSOR 58,2:РНІМТ 
SPC (10) 

CURSOR 37,2:PRINT TELLERS" : "sj: 
POKE #75,95: INPUT B$(CTELLER) 

IF BS(TELLER}="" THEN 240 

IF LEFTS$(BS (TELLER), 1)="-" THEN 
240 

IF ASC(BS(TELLER))>49.0 THEN 249 
BH (TELLER) =VAL (B$ (TELLER) } 

IF ВИ (ТЕЦ ЕК)<0.0 OR 

BH (ТЕЦ ЕН) 21.0 THEM 240 

ТЕ ВИ (ТЕЦ ЕК) 71.0 THEN DW=DW+N/2 
W-W/2:X$-X$4B$ (TELLER) 
NEXT TELLER 
PRINT CHR$ (12): "DE BINAIRE WAARDE 
BEDRAAGT: "iX$;" = #"IHEX$ (DU) 
PRINT "DE DECIMALE WAARDE BEDRAAGT: 
IDR” aV." 
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550 
409 


418 


450 
469 
489 
500 
590 
605 
519 
628 


659 


649 


GOSUB 9509: RETURN 

CURSOR 9,0:PRIMT "NOGMAALS 
HERHALEN <J/N> "š 

IF Hi=@.@ THEN PRINT :PRINT "ER IS 
NOG GEEN BINAIRE OF DECIMALE 
INVOER GEWEEST." 

=GETC: IF G=@ THEN 420 

IF 6-74.@ AND H1-0.0 THEN GOSUB 
9500 

IF 8-74.0 AND Ніс1.0 THEN PRINT 
CHR$ (12) 3 Ні =0: GOSUB 299 

IF G=74.@ AND Hi=2 THEN PRINT 
CHR$ (12) ; :Н1-9: GOSUB 20000 

IF G=74.@ AND H1=3.0 THEN PRINT 
CHRE (12) 5 :Hi=@:GOSUB 50000 

IF 6-78 THEN Wei: RETURN 

GOTO 429 

MODE @:COLORT 9 15 9 @: PRINT 
CHR$ (12) 

CURSOR 10,21:PRINT "INTRODUCTIE" 
CURSOR @,19: PRINT "DIT PROGRAMMA 
GEEFT DE MOGELIJKHEID TOT HET 
BESTUDEREN" 

PRINT "VAN DE ANALOOG NAAR 
DIGITAAL OMZETTER VOLGENS DE 
METHODE” 

PRINT "VAN > SUCCESIVE 
APPROXIMATION." 

PRINT "DEZE METHODE VOLGT EEN 


ага 








659 
569 
679 
680 
690 
700 
719 


729 
73e 


750 
1000 


1010 


1929 
1059 


1049 


1950 


= = & 











PROCEDURE, DIE DE ANALOGE SPANNING 

Ux" 

PRINT "BENADERT DOOR EEN SPANNING 

AAN EEN DIGITAAL NAAR ANALOOG-" 

PRINT "OMZETTER AAN TE BIEDEN EN 

DAARNA TE KIJKEN OF DE AANGEBODEN" 

PRINT "SPANNING TE HOOG DAN WEL TE 

LAAG 19. DIT GEBEURT АСНТЕКЕЕМ-" 

PRINT "VOLGENS, TOTDAT DE SPANNING 

Ux IS BENADERD." 

PRIMT :PRINT "VOOR HET WERKELIJK 

LATEN FUNKTIONEREN VAN DE OMZETTER" 

PRINT "VOLGENS PUNT 7 VAN HET MENU, 
DIENT MEN HET DAI-RWC-REK ЕМ" 

PRINT "DE BETREFFENDE INTERFACE 

AAN TE SLUITEN OP DE DCE-BUS." 

PRINT :PRINT "VEEL SUCCES.” 

CURSOR 36,CURY:PRINT "(C) 85 

9.9.Н. van 001." 

GOSUB 12000 

MODE @:PRINT CHR$(12):COLORT 7 15 
S:COLORG © 10 1 14 

FOR CU-25 TO 31 STEP 2: РОКЕ 

SBSDA-253CUT204HIB6, HEF NEXT 

CURSOR 25,20:PRINT "M E N U":PRINT 

PRINT "Algemeen symbool 

A/D-omzetter <i>" 

PRINT "Schema van de 

A/D-omzetter... <2>" 

PRINT 





1040 
1070 
1986 
1999 
1995 
1180 
1200 
1219 
1220 
1225 
1250 
1249 
1245 
1259 
1269 
1599 
2999 
2919 


2029 


Samir 85-54 


"SAR-alqoritme................ <3>" 
PRINT “Binaire invoer van 
gegevens.. 14>” 

PRINT "Decimale invoer van 
gegevens. 15>" 

PRINT "Tekenen van. de 


grafiek....... LEI" 

PRINT "DAI-RWC met 
A/D-Interface.... <7>" 

PRINT "Stoppen met het 
programma.... <82" 

PRINT :PRINT "Maak Uw keuze <1 t/m 
8S5...... "3 


INPUT K$:PRINT 
IF K$-"" THEN 1100 

IF LEFT$(K$,1)-"-" THEN 1100 

IF ASC(K$)257.0 THEN 1100 

IF VAL(K$)<1 OR VAL(K$)>8 THEN 1100 
A=VAL (K$) 

PRINT CHR$(12); 

ON а возив 9909, 25006, 2000, 200, 
20000,9450, 30000, 1300 

вото 1900 

MODE @:PRINT CHR$(12):POKE 875,95: 
END 


REM SAR-ALGORITME 

MODE 6:COLORG 9 15 3 14:11:50: 
GOSUB 15000 

KL=21:G0SUB 8500: DRAW 165,140 165, 
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2030 
2940 
2850 
2959 


2845 
2079 
2080 
2085 


2090 


2095 
2196 


2119 
2120 


2130 


2149 
2145 
2159 
2169 
2170 


2520 
2530 
2546 
2550 


2560 


— ADC CONVERTOR 


115 “L:GOSUB 5550 

GOSUB 8770 

SP=7: DF=0: CC=23 

AS="A D C":X=148:Y=242:G0SUB 10900 
A$-"INITIATIE":X-135:Y-225: GOSUB 
19999 

A$-"R-0 T=8":Y=214:G0SUB 10000 
AS="OUTPUT": X=145: Y=195:GOSUB 10000 
А%-"5-00000000": GOSUB 7115 
A$-"?":X-162:Y-166:GUSUB 10000: Y= 
142:60508 10000 
A$-"Udactilx":X-143: Y=155: GOSUB 
19900 

GOSUB 7125:60SUB 7175 

AS="HERSTEL ВІТ": X=242: Y=132: GOSUB 
19909 

A$-"R-00000000":G0SUB 7225 
AS="T=T-1 ( )"3X=132: Y=96: GOSUB 
10000 

A$="7" X=162: Y=76:GOSUB 10000:Үс52: 
GOSUB 19000 

A$S="T=@": Х<155:У-65:60508 10000 
GOSUB 7325:GOSUB 7375 
AS="R=09000000":GOSUB 7425 
A$-"EINDE” : 2148: Y=7:GOSUB 19909 
A$-"S- S OR В": X=15: Y=125: GOSUB 
10000 
A$="R=RESULTAAT ": X-5: Үс240: GOSUB 
10000 

A$-"T-TELLER":Y-220:G0SUB 10000 
A$-"S- S А R':Y-220:605UB 10000 
GOSUB 15909 
DW-RND(254.0)41.0: GOSUB 21000: DW$= 
X$: L3=LEN(STRS (DW) ) 

ИХ%=М10% (STR$ (DW) , 1,L 3-3) :X-190: Y= 
241:CC=22 

AS="Ux="+UX$+" mV": GOSUB 10000 
SAR=128: SOR1=@: DW=SOR1:GOSUB 21000: 
SOR1$-X$ 

KL=22:G0SUB 7000:WAIT TIME 40: 
GOSUB 7050 

T4=8: FF=1 

IF T4-8 THEN SOR=SAR 

DW=SOR:GOSUB 21000: SOR$-X$ 
XB$-MID$(DW$,8-T4,1) 

KL=22:G0SUB 7100:CO=22:A$="5="+ 
SOR$:GOSUB 7115: UDACH=STR$ (SOR) 
L2=LEN (UDACS) : DACS=MIDS (UDACS, 1, 
(2-3) 

X-210: Y-186: CC=22: AS="Udac="+DACS+ 
" mV  ":G0SUB 19000:GOSUB 15000 
KL-22:80S8UB 7150:ІҒ XB$-"1" THEN 
СС=22:6050В 7175 

IF XB$-"Q" THEN CC=22:G0SUB 7125: 
GOSUB 7500 

GOSUB 15000 

GOSUB 7250: XC$-MID$ (SOR$,8-T4, 1) 
IF XC$=XB¢ THEN A$="R="+SOR$:CC=22: 
GOSUB 7225: S0R1=SOR 

IF ХС%<>ХВ% THEN AS="R="+50R1¢:CC= 
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2588 


2590 
2600 
2619 
2520 
2650 


2700 


2710 


, 2720 


2730 


== ABC CONVERTOR 


22:60508 7225: SOR$=S0R 1%: SOR=SORL 
T4-T4-1: AS“HIDS (GTRS (TA), 1, 1) 2 X— 
183:Y-95:UCC-22:808UB 10000 

IF T4=9 THEN 2900 
KL=22:CC=22:G0SUB 7350:GOSUB 732 
GOSUB 150909 

GOSUB 7296 

SAR=SAR/2:DW=SAR:GOSUB 21000: SARS= 
x$ 

X713: ¥=135:CC=22: e : 
GOSUB 10000 

Y=125: AS="G="+SAR$:GDSUB 10000 
DRAW 15,124 85,124 23 
SOR1$=SOR$:SOR=SAR IOR SOR: DW=SOR: 
GOSUB 21000: SORS=X% 

ү=112:С6=23: A$="G="+SOR$: GOSUB 
19999:G0SUB &77@:GOSUB 15090 
KL=21:CC=23:G0SUB 7125:GOSUB 7175: 
GOSUB 7325 

KL-21:808UB 4770:GOSUB 8540: GOSUB 
6530 

GOTO 2419 


REM 

KL-22:CC-22:G05UB 7350:GOSUB 7375: 
GOSUB 7400 

AS="R="+DW$:GOSUB 7425:G50SUB 13000 
GOSUB 7450 

GOSUB 15000 

FF=@: RETURN 


REM STROOMSCHEMA 

GOSUB 7900: КЕМ BLOK 1 

GOSUB 7050: КЕМ BLOK 2 

GOSUB 7190:REM BLOK 3 

GOSUB 7150: RETURN: REM RUIT 1 

GOSUB 7290: КЕМ BLOK 4A 

GOSUB 7250: КЕМ BLOK 4B 

GOSUB 7300:REM BLOK AC 

GOSUB 7350:REM RUIT 2 

GOSUB 7409: КЕМ BLOK 5 

GOSUB 7450: RETURN: REM BLOK 6 

DRAW 59,150 56,219 KL: DRAW 50,210 
165,219 KL 

RETURN 
XM-165:Y2-240:1-240: Bz14: BOSUB. 8000: 
DRAW XM,240 ХМ,255 KL: RETURN 
XM-155:Y2-215:L-80:B-20:508UB 8000: 
DRAW XM,215 XM,205 KL: RETURN 
XM=165: Y2=185:1=86: В-20: GOSUB 8000: 
RETURN 

X=132:Y=184:G0SUB 10000: RETURN 
AS="NEE" 2 X=200:V=162:G0SUB 19000: 
DRAW 195,160 280,180 KL 

DRAW 280,150 280,145 KL:RETURN 
DRAW 145,185 185,180 КІ: XM=165: Y2= 
160:L=40:G0SUB 9100: RETURN 
A$-"JA":X-167:Y-130:808UB 10000: 
DRAW 165,14@ 165,115 KL:RETURN 
XM-59:Y2-110:1-80:B-40:G0SUB 8000: 


== z 
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7225 


7250 


7399 


7319 


B000 
8219 
8920 
8959 
8040 
8199 
8110 
8120 
8130 
8150 
85009 
9000 
9010 
9220 
9250 


7249 
9250 


к= ra 


9250 


927 
9280 
9290 
9500 
9510 1 
9320 


9525 
9330 


uo 


~~ ADC CONVERTOR 


RETURN 

X-132:Y-108:B08UB 10000: RETURN 
XM-155:Y2-2953:1-BH8:B-20: GÜSUB 8900: 
RETURN 

XH-289: Y2=130:L=80:B=15:G0SUB 8900: 
DRAW 280,150 280,120 KL 

DRAW 165,120 280,120 KL:DRAW 165, 
120 145,115 KL: RETURN 

AS="NEE": Х=115:Ү=72: 00808 10000: 
DRAW 50,79 155,70 KL 

DRAW 50,70 50,110 KL: RETURN 

DRAW 165,95 185,90 КІ: XM=165: Y2=70: 
L=60:G0SUB 8100: RETURN 
AG="JA"s X=140: VEA7:GOSUB 19999; 
DRAW 185,45 163,50 KL: RETURN 
XM=1465: Y2=25: <80; B=20:G0SUB 8009: 
RETURN 

X=132:V=30:G0SUB 10000: RETURN 

DRAW 165,28 165,25 KL:XM-165:Y2-3: 
L=40:B=15:G0SUB 8000: RETURN 


REM RECHTHOEK 

X2=XM-L/2:REM LZ=LENGTE BY-BREEDTE 
DRAW X2,Y2 X2+L,Y2 KL:DRAW X2,Y2 
X2, Y2+B KL 5 

DRAW Х2,Ү2%В X2+L,Y2+B KL:DRAW X2+ 
L,Y2+B X2+L,Y2 KL 

RETURN 


REM RUIT:LZ-LENGTE НООВТЕ-2/5 
LENGTE 
X2=XM-L/2:X3=X2+L/2:X4=X2+L:Y3=Y2+ 
L/3: YAsY2-L/3 

DRAW X2,Y2 X3,Y3 KL:DRAM X2,Y2 X3, 
Y4 KL 

DRAW X3,Y3 X4,Y2 KL:DRAW X3,Y4 XA, 
Y2 KL 

RETURN 

END 

MODE @:PRINT CHR$(12):COLORT Ө 14 
де 

YO=20: XO=200:KL=21 

MODE &0:DF-5:X-120:Y-80:CC-23 
AS=CHRS(23):GOSUB 10000: DF=0: Y=140: 
X=255: X$="O1 191101" 


DRAW 211, Y 250,Ү 21:4%-М10%(Х%,Т, 
1%:ҮсҮ-5: ВОЗЦИВ 10000: Y=Y+5 
ҮзҮ-19: NEXT 
DRAW 20,150 119,150 235: DRAW 20,100 
119,190 22 
DRAW 30,100 50,80 22:FILL 25,89 35, 
83 22 
AS="ANALDOG/DIGITAAL": DF=1: X-30:Y- 
180:ГС-21:5Р-7 
FOR T=1 TO 3 

GOSUB 10900: X=X+1:V¥=V+1:CC=CC+1 
NEXT 
GOSUB 15000 
A$S-"ÜMZETTER":DFzi:X-110:Y-20:1D- 
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9619 


9620 
9530 
9649 


9850 


9709 
9719 


9720 


9739 


9749 
9759 


9760 
9779 
9789 
9799 
9899 
9990 


19000 
10010 


18928 
19036 


19949 
19050 
12999 
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— ADC CONVERTOR 


i@:FF=1:FC=1:CCO=22:G0SUB 19099:FF=9 
Dë Us "2 X=3Q2 Y=155: DF=9: CC=23: 
GOSUB 12000 

GOSUB 12000 

RETURN 

COLORT 9 14 9 @:PRINT "HET 
PROGRAMMA VERVOLGT MET DE LAATSTE 
INVOER" 

MODE 5А: GOSUB 15900 

XO=36: Y0-20: T=25 

DRAW X9-1, YO-1 X@+8*T, YO-1 23: DRAW 
Xe-1,Y0-1 X@-1,Y@+209 25 
XzXO*7*T:YzYO-158:CC-23:0$-" t": 
GOSUB 10600 

VH(8.9)=Y0 

VH(7.@)=128 

IF BW(7.0)-1.0 AND BH(S.9)=1.9 
THEN VH(7.@)=94 

Xi-X0:KL-21 

FOR TEL-7 TO 9 STEP -1 


IF BH(TEL)-0.0 THEN KL-22:FILL Xi, 
VH(8.@) X1+T,VH(8.01+VH(TEL) KL: 
VH(8.0)=VH(8.0):KL=21 
IF BW(TEL)=1.@ THEN FILL Xi, 
VH(8.@) X1+T,VH(8.9)+VH(TEL) КІ: 
VH(8. 0) -ZVH (B. 2) +VH (TEL? 
ТЕ TEL29.0 THEN VH(TEL-1.0)— 
VH(TEL) /2.0 
X1=X1+T 
NEXT 


SP=7: X=XO-15: ҮзУН(8.0)-10.0:СС-23: 
A$-"Ux":BGOSUB 10909 
DRAW X@,VH(8.@) XO+8eT, VH(8.@) 23: 
COLORG 9 10 1 14 
AS="SUCCESIVE APROX IMATION" 
DF=0: SP=8: X=X@~-1: YES CC=22: FF=1:FC= 
1:GOSUB 16990: FF=0 
X=XO+7/3: Y-UH (B. 89) 45.0: CC-23: ЕС: 
FF=1:SP=7 
IF УН(8.0) 5180.9 THEN Y= 
VH(8.0)-15.0 
FOR TELLER-7 TO 9 STEP -1 
AS=MIDS(STRS (ВЫ (TELLER}}, 1,1): 
БОБОВ 19999 
ХЕКАТ 
МЕХТ 
FF=0: PRINT 
SOSUB 480 
GOSUB 12000 
RETURN 


REM SUBROUTINE ЕБТ 

POKE #2F2,X MOD 256:РОКЕ #2ЕЗ, 
X/256:POKE #2F4,Y 

POKE #2F5,SP:POKE #2F6, ID 
C-FCHEIOHCC: F=FF #BOLPE SAGIE 3820+ 
VERRIOTDE:POKE #2F0,C:POKE #2F1,F 
CALLM #300, A$ 

RETURN 

IF W=1.9 THEN 12049 
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12928 


12959 
12040 
12950 
15999 


i3eie 
15929 


13030 
15600 


15919 
15020 
15050 


15100 
20000 
29919 


29059 


20110 
20120 


20150 
20150 


201809 
29190 
20550 


20540 


20389 
20400 


20426 
20450 
20600 
21990 
21200 
21246 
21269 
21286 


21388 
21540 
21350 


25000 
25919 
25929 


— 
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-- ADC CONVERTOR 


CURSOR ©,@:PRINT “DRUK OP DE 
SPATIEBALK OM VERDER TE GAAN.."5 
G=GETC: IF 6<>32 THEN 12059 
W-O:PRINT CHRS(12)$ 
RETURN 
A$- “DRUK SPATIEBALK": Х=5:Ү=5:СС=25: 
FC=0:FF=1:G0SUB 19999 
G=GETC:IF 6<>52 THEN 13010 
as-" "3 X=5: Y=5: GOSUB 
18000 
RETURN 
DRAW 2456, 185+Y1 270,204%Ү1 25: DRAW 
260, 185+Y1 27@,166TY1 25 
DRAW 279, 204+Y1 275,1944Y1 25: DRAW 
279, 165+Y1 275,17ё+Ү1 23 
AS="CHR.MTS": X-27@: Y2180 t Y 1: SP-B: 
CC-22:DF-0: 50508 10000 
А%="А МЕ О”: X-280: Y=179+Y1: 6DSUB 
19000 
Yi=0: RETURN 
COLORT 9 14 9 0:H1-2 
PRINT CHR$(12)3:CURSOR @,3:PRINT 
"DECIMALE INVOER VAN DE 
INGANGSSPANNING Ux...." 
CURSOR @,2:PRINT "Ux MOET EEN 
POSITIEF GEHEEL GETAL ZIJN. 
@<Uxz<255 mV." 
INPUT 6% 
IF G$="" THEN 20110 
IF LEFT$(5$,1)-"-" THEN 20110 
IF ASC(G$)>57.9 THEN 20110 
IF VAL (64) «0.0 OR VAL (64) >255.0 
THEN 20110 
PRINT " пу." DW=VAL (6%) 
SOSUB 21000 
PRINT CHR$ (12): “DE DECIMALE WAARDE 
BEDRAAGT: ": 0и; " mV." 
PRINT "DE BINAIRE WAARDE VAN "3 DW; 
"mv = “EKS” = #°SHEXS (DW) 
FOR TELLER=@ TO 7 
BW (TELLER) VAL (MIDS (X$, 7- TELLER, 
1)) 
МЕХТ 
GOSUB 9500 
RETURN 
M=VARPTR (DW) 
P=PEEK (M43) : X$="" 
FOR T=7 TD 6 STEP -1 Ë 
В-Р IAND (2°(T+1)) 
KB SHR T:ST$="0": IF К=1.0 THEN 
ST$="1" 
X$-X$45T$ 
NEXT 
RETURN 


REM SCHEMA A/D-OMZETTER 

МОРЕ ба: СООЕТ 9 14 99 
A$-"SUCCESIVE APPROXIMATION 
METHODE": X=2@: Y=19@: DF=@: CC=23: SP= 
7:GOSUB 1@@@9:GOSUB 15000 
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25550 
29000 
59090 


39919 


50020 
50080 
350090 
50190 
59119 
30120 
50150 
50149 
591509 
30160 
50200 
39219 
39220 
3022 

50240 
50230 
39255 
39269 


30265 


30279 


і 


-- ADC CONVERTOR 


AS-CHR$ (24) : X=1002 Y=10@: DF-3: CC-21: 
GOSUB 10800 
FILL 19,20 50,160 22:0$-"5 A R':FF- 
i:FC-0:VE-l:X-50:Y-30:DF-2:00-23: 
GOSUB 10009 
FF-0:VF-0 
X2190: Y-50: DFz1: CC-22: A$-CHR$ C13) : 
БОБОВ 10900:DRAW 61,465 99,05 23 
AS=CHAS (20) : X-200: Y=G0: DF=3: ZF=1: 
СС-22:БОБИВ 19000: ZF=@: DF TA 
DRAW 51,32 160,32 23 
Y-145 
FüR T-1 TO 8 
DRAW 61,Y 99,Ұ 23:YzY-5 
NEXT 
DRAW 160,130 220,130 23 
DRAW 220,130 220,52 #4 
DRAW 200,52 220,52 23 
DRAW 200,12 250,12 25 
Аф= ки X2260: Y-10: CC721: GOSUB 
19000 
&$="COMPARATOR" : SPz7:X2156: Y=45: CC= 
22:60SUB 19000:44-"+"; X21805: VASE 
CC=21:G0SUB 10000 
PRINT CHR$(12)::PRINT "SCHEMA 
A/D-CONVERTOR. " 
PRINT "SAR = Succesive 
Approximation Register." 
PRINT "De SAR-FUNCTIE kan ook 
software-matig worden 
gerealiseerd." 
GOSUB 12000 
RETURN 
SP1-@:COLDRT 0 14 0 O:REM 
SUBROUTINE DAI-RWC-I/U0 
OUT #AZ,#91:REM INIT POORT #A9- 
INPUT EN #A1=OUTPUT 
A=0: B=#90: C=#0: D-8: H1=3 
аза IOR B 
ста 
QUT #A1,A 
I-INP CAO) IAND #86 
IF 1-9 THEN 30200 
А-В 
A= (A) :AL=VARPTRIA) : А=РЕЕК (А1+3)-1 
=A LAND C 
=ñ 
A=B 
А-А SHR 1 
B=A 
Bet 
D-D-1 
IF Ік>9.8 THEN 30080 
&A!-0/190.0 
IF SPi-1.0 THEN POKE #75, 22: 60T0 
3e285 
CURSOR @,3:PRINT "INVOER VIA 
DAI-RWC MET A/D-INTERFACE." 
PRINT "DE SPANNING Ux BEDRAAGT: "i 
А MV." 
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зің eerder is er geschreven over de stoorgevoelig- 
heid van het reset circuit van de DAT. 

De ene DAL reageert sneller op storingen van buiten- 
af dan de andere. 

Mij is dan соқ 
"als mijn koel 
wat moet ik daar 


verschillende malen de vraag gesteld: 
st aankomt slaat mijn DAI op tilt, 
aan, doen", 








Bij gebruikers van de Commodore 1541 Floppy (inmiddels 
een aardig aantal) komt deze klacht wat vaker voor. 

Dit zit echter niet in het door ons ontwikkelde systeem 
maar vermoedelijk іп de totale lengte van de gebruikte 
kabels. 

Het reset signaal gaat n.l.vanaf de DCE Bus via de flate 
kabel naar de interface еп vandaar via de afgeschermde 
floppy kabel maar de drive, 

Hoewel de 1841 voorzien is van een netfilter еп Кап worden 
aangesloten op een kontaktdoos voorzien van een randaarde 
is een verhoogde stoorgevoeligheid met alle nare gevolgen 
vandien niet uit te sluiten. 


Een oplossing is misschien kortere kabels,gebruik maken 
van een andere geaarde kontaktdoos en als dat niet helpt 
misschien een kleine verandering in Uw DAT. 


Deze verandering bestaat uit het aanbrengen van een con- 
dangatar van 1 uF/39V over de "RESET" naar aarde, 

De condensator is zo'n kleine rode of blauwe tantaalcon- 
densator zoals er zovelen in de DAI zitten. 


Waar moet hij komen,nu dat is eenvoudig. 

Open Uw DAI (alle kabels eraf natuurlijk en het kabeltje 
van het metaal rondom het toetsenbord los gemaakt), 

U ziet dam recht van het toetsenbord vlak bij de BREAK 
toest een printbaantje van onder het toetsenbord met 

een boog omhoog gaan en stoppen bij een boorgat. 

Hierin komt de + zijde van de condensator, Links van 

dit boorgat komt een dikkere printbaan van een blokje 
(Dij mij is het blauw) dit is een weerstandsblokje 

boven het toetsenbord en stopt ook in een boorgat links 
van de eerste, Hierin komt de ~ zijde van de condensator, 
U moet NIET het boorgat hebben wat erboven zit of de 
printbaan aan de rand van de DAI want dat is *Svolt. 

De tekening helpt U verder, 

Deze wijziging is сок uitgevoerd vanaf rev. 7.1 door 
INDATA. 

Ik hoop dat hiermede het probleem is opgelost. 
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Werkt U ook al jaren met een TV aan Uw DAL en bent U 
dan ook wel eens jaloers op die mensen die zo'n mooi 
plaatje op hun RGB monitor hebben, 

Nu de КӨН monitoren met een medium resolutie goedkoper 
worden is de aanschaf het overwegen waard, 

Maar het is wel oppassen met het geen U koopt. 

Wat meestal niet bekend is is dat er twee soorten КӨН 
monitors bestaan n.l. met een analoge en een digitale 
RGE ingang. De laatste worden vaak IBM compatible ge- 
noemd. 

Het verschil tussen beide is het volgende: 


1. Een analoge RGB monitor ontvangt een drietal 
analoge signalen welke varieren in spanning. 
Hiermede Jn een groot aantal kleuren variaties mogelijk 
afhankelijk van de amplitude van de aangeboden signalen. 





oy 


2. Ean digitale КОВ monitor ontvangt een drietal 
digitale signalen van TTL niveau wat wil zeggen of +5 volt 
af О volt. 

Hierdoor is het aantal kleuren beperkt tot het aantal data 
bits waarover de processor beschikt bij de DAL maximaal 8. 
De DAT Кап normaal 16 kleuren leveren еп een digitale 
monitor is dan ook niet direkt geschikt voor de DAT. 


Tevens moeten de meeste digitale КОВ manitoren 2 sync. 
signalen ontvangen n.l, horizontale en verticale sync. 
De analoge monitor heeft genoeg aan composite sync. 
dit is een combinatie van beiden, 

De DAI RGB interface kaart is van het analoge type еп 
levert behalve analoge RGB een composite sync. signaal 
en een audio signaal. 

Wil men dus een RGB monitor aansluiten dan moet men dus 
een DAI ROE interface kaart kopen en deze op de plaats 
van de normale Video kaart monteren tenzij men een 
soldeerbout pakt en zelf een ROB kaart bouwt. 


Voor de zelfbouwers volgt dan ook een schema met КОМ 
inhoud voor een RGB kaart, 

De gegevens in de ROM zijn niet gelijk aan de origi- 
nale ROM maar geven een betere kleuren weergave. 


De werking is als volgt: 


De signalen KO,K1,K2,en KS worden gebruikt voor de kleu- 
ren generatie, Met deze 4 bits zijn 16 adres combinaties 
mogelijk, 

Deze 16 combinaties zijn geprogrammeerd in een ROM van 

het type NB289123 en staan als В bits aan de uitgang ter 
beschikking als het signaal VLE welke als een enable werkt 
laag gaat. 

Deze 8 bits worden dan in z.g.'D'Flipflops geklokt met сеп 
het signaal СКІ. 

De @ uitgangen worden in groepen van 3 via verschillende 
weerstanden aan elkaar geknoopt in een z.g. summing net- 
work, 
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DAT = CENTRONICS EMULATE & STORE 
This machine code program enables the DAT to receive ASCII data from 
any micro which has а Centronics interface (which uses an acknowledge 


signal). 


This 18 achieved by configuring the Dai as 8 Centronics printer (by 
running this program) and using normal printer commands on the other 
micro. The program checks data byte by byte, makes sure that bit 7 is 
0, ignores linefeed commands and CHRSC2) commands. It returns to the 
after an ASCII ^ - ie CHR$ CA 5 - Note that the 515 important 
as after ASCII 4 the Dai will not acknowledge any further characters. 
DELETE (ТЕ) converted to 41D which is displayed by the DAT as 
horizontal Lines. 

While data ig being transferred it 18 storéd and a listing i9 also 
sent to the screen. 


On exit the data which has been transferred to the DAI is in the edit 
buffer starting 8t #1000 and the start of the heap has been moved to 
5000 „This Basic programs to be run without overwriting 
either this program or the transferred data, provided the amount of 
data is less than 16K bytes. n the case of 8 Basic program being 
transferred; returning 00 basic and typing ‘NEW! followed by 'POKE 
4135,2! copies the program from the edit buffer to the program area 
and sets UP the basic pointers. The original data is preserved but 


use of the editor overwrites the pointers to it. 


code 


start of the source 


are given at the 


DCE bus connections 


listing. 


1f changing the program to suit your own requirments the (SPL) source 
code fits between the assembled program and #1000, (if it is started 
at #400), thus allowing the program to be tested with the assembler 
and source code loaded. 
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SPL V1.1 PAGE 1 




















1 TITL *—— DAI CENTRONICS EMULATE & STORE ---” 
2 3 
3 5 WRITTEN BY GEORGE CATHCART SEPTEMBER 1985 
4 i 12 EVORA PARK ORE 777 
5 Н новтн, CO.DUBLIN 
6 H TRELAND 
7 5 TEL. @1-324030 
8 5 - 
9 5 PURPOSE TO TRANSFER DATA IN ASCII FROM ANY MICRO 
18 H WITH A CENTRONICS INTERFACE 
H ` 
12 % SIZE 72H BYTES (FROM 3900H TO 371H) 
14 % DCE BUS 
15 Н CONNECTIONS ФАТА........... PORT A BITS 077 
16 H STROBE (FROM OTHER MICRO). PORT B BIT 7 
17 Н ACKNOWLEDGE (FROM DAI) . . PORT С BITS 4-7 
18 H GROUND (GV). =.» s + + + « PIN 4 
з 
29 Н то START - 6500 
21 H TO EXIT - SEND CHR$(4); TD DAI (ASCII 4 WITH NO СК.) 
‚ 22 H ON EXIT - RECEIVED ASCII CODE IN EDIT BUFFER STARTING 
р, 25 5 AT 1000H (MAX. SIZE 4090H). START OF HEAP 
H 24 H AT 5000H 
|i 5 
I 26 START ЕВО зеен 
|. 27 ORG START 


29 PUSH PSW 

: 30 PUSH H 

m PUSH B 

32 PUSH D 

33 LXI H 1200H ISTART TEXT STORE AT #1000 
34 SHLD @AZH ¿SET POINTER TO START EDIT BUFFER: 
35 XCHE 

36 LXI H 5090H 

37 SHLD 29BH ІЗЕТ START OF HEAP TO 45090 

38 DCH H 

39 SHLD @AGH фЗЕТ POINTER TO END EDIT BUFFER 
40 MVI A есн 

41 RST 5 3615 

42 DB 3H 





























44 PUT "b" 38255 PPI 

45 MWI A 19010019В IMODE 9 A-1N,B-IN,CH-DUT, 

46 PUT. "n^ 3CL-IN 

47 STA ФРЕФЗН 

a8 MVI A ФЕЕН . 

STA @FEO2H ВЕТ ACK HIGH 

LXI H ФҒЕФІН 

DI 

CALL SCAN sSCAN INPUT 

MVI A ен 

XCH& 

MOV M,A sSTORE ӨН AS EOT IN 

SHLD едан JEDIT BUFFER AND STORE 
POINTER 

















CALL ACK 


aam BT i= Bea 2331 Е ЕЕЕ гн і с Ес 21 dei 


















































9020 
0099 
оодо 
e000 
9000 
92900 
9200 
зове 
9092 
9909 
8000 
0990 
9000 
9000 
9200 
9000 
90990 
ооо 
0000 
0000 
90000 
9000 
eire 
e1F3 
@1F8 
@1FB 
@1FC 
@1FF 
e1FF 
OLFF 
@1FF 
9202 
9295 
9298 
9209 
9209 
0209 
9299 
8208 
0200 
O20E 
9211 
9212 
9212 
9212 
9212 
9214 
0214 
0216 
$ 9219 
921С 
ӨЗІН 
0220 
9221 
8222 
0222 
9225 
9225 
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@=0@1F9 
СЗЕҒФІ 
U33402 


C30902 


CD2202 
CD1202 
CD2892 
с9 


ES 
с02202 


CPD4DA 
С? 


Fo ` 
ЗЕВВ 
3203FE 


PAGE i 


iam we сан WE GAS CAT ces WE WE AS ME лаа CAR саз саз we caa an сда 


жа as 


3 
PRINIT 


TITL г аа CENTRONICS ACK LATCHED V1.6 ж” 
WRITTEN BY GEORGE CATHCART 18/19/85 
TO RUN AN ORIC MCP 4@ PRINTER/PLOTTER 


THIS OUTPUTS DATA TO THE SCREEN AND A CENTRONICS 
PRINTER VIA THE DCE BUS AND USES DOUTC. 


IT IS STORED IN THE ENVELOPE BUFFER, STARTING АТ IF@H. 
DATA GOES TO PORT A, STROBE (HIGH) TO PORT B BIT 7 
RESET LATCH (HIGH) ТО PORT В BIT 6 AND THE ACK SIGNAL 
15 RECEIVED ON PORT C BIT 4. 

TO INITILISE CALLM #1Е9. TO STOP PRINTING POKE #151,1 
FROM FHP CALL 1FCH AND THEN CALL 1FBH 


SET UP POINTERS ------------------- 


EQU tFOH 

ORG START #ALLOWS PROG ТО BE MOVED 

JMP PRINIT #WITHOUT CHANGING ENTRY POINT 
ORG START+8H 

JMP PRINTI : УЕСТОК TO PRINTER ONLY PROG 
ORG START+@CH 

JMP FWPIT VECTOR TO FWP PRINT INIT 


INITILISE GENERAL PRINT PROGRAM ------------- 


CALL PPI #INITILISE 8255 PPI (DCE BUS) 
CALL DDUTC ;SET UP DOUTC POINTERS 

сащ. OUTPUT OUTPUT VIA DDUTC 

RET 


INITILISE FWP (ETC) PRINT PROGRAM 


SPL V1.1 


9228 FI 
9229 CI 
922a 

9224 FS 


dum Kal Ia rn im 85-31 


PUSH H ;STORE START ADDR OF MESSAGE 
CALL PPI zINITILISE 8255 PPI 

POP H :БЕТ START MESSAGE ADDRESS 
CALL @DAD4H SPRINT MESSAGE 

RET 
SSeS INITILISE SUBROUTINES -------------- 
PUSH H 

PUSH PSK 

мута OCH iSTORE JMP 

STA 2DDH 370 

LXI H PRINT ІРНІМТ PROG START ADDRESS 
SHLD 2DEH SIN DOUTE 

POP PSW 

POP H 

RET 

PUSH PSW 

MVI A 88H zINITILISE 8255 - MODE 9 
БТА ФЕЕВЗН 3 A,B & CL OUT. CH = IN 








е22в 
9220 
9259 
9231 
8252 
9252 
9252 
9252 
9252 
0252 
9252 
9252 
9252 
9255 
9254 
025 

9259 
e23c 
e23D 
923D 
923Е 
9242 
9245 
9245 
9246 
9248 
9249 
9249 
2240 
9240 
@24E 
9251 
9251 


9255 


6255 
9257 
92237 
9258 
9239 
92558 
925Е 
e25F 
e250 
9251 


SEAT 
525101 
Е1 

с? 


ЕҒ 

Ka 
FEIF 
DC3D02 
С04902 
с9 


FEOD 
CC4302 
cI 


CD4902 
ЗЕОА 
c? 


3200FE 
ES 
FS 
2101FE 


3546 
3589 
3600 


PAGE 2 


ЧП сан жз саз caa же mn м 


RINT 


PRINTI 


аск 


жав CENTRONICS ACK LATCHED V1.6 Hitt 


РОР PSW 


PUSH PSW 


MVE 
STA 


а 


POP PSW 


RET 


PRIN 


T — 


3H 
131H 


OUTPUT VIA DOUTC 


PRINT PROGRAM ——— 


SENDS DATA ТО SCREEN AND PRINTER 


PRINTI - SENDS DATA TO PRINTER ONLY 


ENTRY DATA ТО BE SENT IN A 


RST 5 

DB 3H DISPLAY ON SCREEN 

ЕРІ 1ЕН 315 ІТ A CONTROL? 

cc CNTROL : УЕВ - CHECK IT 

CALL SEND ;SEND TO PRINTER 

RET 

CPI әрн 318 ІТ CARRIAGE RETURN? 
CZ CR sYES - SEND LF TOO 

RET SNO - THEN RETURN & SEND 
CALL SEND SEND CR AND THEN SEND 
MVI A ФАН s;LINEFEED TOO 

RET 

STA @FEQOH sSEND DATA 

PUSH H 

PUSH PSW 

LXI H @FEQ1H 

PUT "b^ 

MVI M 01000009B RESET ACK LATCH 

MVI H 100000006 #STROBE PRIMTER-DCE BUS OFF! 
MVI M 200020008 RESET STROBE 

PUT въ" 

INX H 

MOV A,M PORT C BIT 4 

ANI 10H 318 LATCH SET ? 

JZ аск INO TRY AGAIN 

POP PSW 

POP H 

RET 

END 


ВаБЕЗ mnam іш asgi 
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ЧАС СТЕТЕК VE S 
bij tekenen in 14 ТЕЗ 14 
ас 
Әт in de ib- eurenschermen 
8 ТА, ЗА, ЗА) de vo 
lijkheden de DAI " 
kleurk 
е 
vertik So zin. 
blemen 16 datjes 
kleur onder elk 
He werk FB en BG оран 
volgende ki t a: FE еп BG og og Z 
О (80) zwart SE le cot! Jes — LIJN : Zie onder 'DEAWEN'. #0 Е 
1 UH) donkerblauw Stel E JE. wt EN veld - VELD : Hier geef je sen getai Wanneer de УКВ en de VDE gekend zijn 
2 (#2) purperrose kleurbyte is аку pp. volgende. ma- van i tot ən met 9. is het dan ook eenvoudig om hetzelf- 
3 (85) rood ier, SECH Vald ar.1 is het veld met de effekt te verkrijgen via de POKE 
4 (84) groenbruin EE de laagste X-coordinaat. inputs. | 
5 (#5) green Жылады НОЕ R: - VEB = Hier geef je de veld- We doen dit ap de lijn eronder,zodat 
6 (#6) bruin EET | ` А kleurbyta. dit overduidelijk wordt. 
7 (#7) purper can ziet de VDE eruit ale volgt : - урн : Hier geef je de veld- 
8 GB) grijs = - databyte. (#0 t/m #ЕЕ) 
9 (#9) НР Bij FG staat bit op 1 en bij EG й Роке inputs : LIJN 2 
10 GHA) огапуе staat bit op 0. VELD 2 
11 GE) rose idee TEEL. Z.Basisprincipes in het grafisch werken ШЕ ка 
12 (#С) hemelsblauw D 1 / PASE En ы ошо EE О 
5 (#D) Lichtgroen = 
14 (#E) geel “n . A.Hou er steeds rekening mee dat de 
15 (BF) wit #02 - je werkt (grijs) Voorbeeld 2 
kta kleau 
De 8 dotjes (8 hits) van een zelfde Hier wa een lijn van acne 
veld kunnen in principe slechts 2 opvraagt dats Та eerste helft geel de 
kleuren aannemen : ‘foreground’ ) computer tweede helft rood. 
en “background” (BG), | аап. 
Per veld van 8 bits (8 dots) voorzi artikel te vo op FE en Draw inputs LIJN 5 
de computer een veldkleurbyte (VER! en E por beelden zel И , XW-1 8 
een velddatabyte (VDE). het nodig ! in хи-2 11 
ens je gelijk welk KLEUR ЖЕ 
A. Veldkleurbyte (VEE) m ? eur kan gebruiken als achtergrond- 
De VEB geeft de 2 kleuren aan die daarentegen wordt de Kid 12 
8 D 45 
in zijn veld van 8 dots gebruikt in het geheugen opge- 2 a 
worden. , wat wel kan gewijzigd KLEUR я 
Die 2 kleuren noemen не in het ver- A ie punt B) 
.volg de 'foregroundcolour? (FG) en durden із velddetabytes opvraagt 
de *hackgroundcolour’ (RG). 9, 8, wordt voor elk veld 
Stel dat je in een veld van В dots 
de kleuren wit en donkerblauw ge- 
bruikt dan ziet de VEE eruit als 
volgt : 
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сап 
op 
in 
НА Met Че gegevens waarover we nu be- 
5 schikken bekijken we nogmaals уосг- 
beeld 3. 
dat Gmdat de eerste dot in kleur #7 OF 
LEE wask wel FS DIE MANIER VAN DRAWEN als FE bepaald 
audklenr) en BE (achtergrond- werd en niet als РВС (previous back- 
DG groundcolor), kan je hier onmogelijk 
4 под twee nieuwe kleuren gebruiken. 
eerste kleur die Е . m 
veld ER en de i Om problemen zoals in vb. te уег- 
j mijden en om, rekening houdend met 
en: rund BE de voorwaarden, drie kieuren in een 
veld te gebruiken is het altijd best 
te DRAWEN VAN RECHTS MAAR LINES. 
Indi achter de erate kleur á Ор die manier laat je steeds de kans 
Kerger veid BS En a RE open de derde kleur als PEG te ge- 
veld,dan wordt deze kleur als *vori- bruiken. 
ge achtergrondkleur (FBG)? beschouwd , me LA 
Zoals je merkt wordt er geen witte ( bits staan op 9) in het nieuwe tri cach э E | КА 
dot geplaatst , omdat je in veld 3 veld, indien іп dit veld под twee Rij t POREN daarentegen moet je 
#7 als FG en #8 als BG bepaald hebt andere kleuren gebruikt worden. А . steeds van LINKS NAAR RECHTS werken 
zodat wit de derde kleur zou zijn Draw inputet: n E omdat je op voorhand moet bepalen 
wat niet kan. SW 17 welke kleuren je gebruikt en welke 
Wanneer je 2 kleuren afwisselend wil Voorbeeld 4 ein ap kleur nu FG of BG is. | 
gebruiken іп een veld, moet je er | ----------- 5 Hou er dus terdege rekening mee dat 
voor zorgen dat je eerst het hele We gaan de achtergrondkieur van veld LIJN = wanneer je in een veld drie kleuren 
veld kleurt in een van de 2 gewenste 2 verder gebruiken in veld š, zodat dust 14 wil gebruiken, je de eerste kleur in 
kleuren (zo sluit je de schermkleur we in dit veld kunnen beschikken XW-2 2 het nieuwe veld PEG maakt, wat dus 
$8 uit). over drie kleuren. ee? ча wil zeggen dat je die kleur BG maakt 
S in het vorige veld. 
LIJN 3 Draw inputs : LIJN 5 LIJN > Dok іп veld i kan je drie kleuren 
XW-1 15 XW-i a Xu-i 2 gebruiken. Men moet dan de PBG poken 
XW-2 23 : хи-2 11 Yule 15 in veld 9. 
SLEUR #7 ELEUR #E KLEUR as 
2 Voorbeeld 7 (voorbeeld 6 РОК 
z JN А N N ED nn pr St soe 
2 Е > LIJN 7 
17 XW-2 17 Sat Ë Роке inputs : LIJN 9 
ap KLEUR 85 ME. See VELD 1 
KLEUR #Е VER HBA 
LIJ 3 LIJN И . VDE ВЕ 
пени 19 XWi-i e Op die manier Кап je zelfs gans het ^ 
Aus 19 XW—2 20 derde veld afwisselend vullen met de LIJN ә 
KLEUR — ar KLEUR a i шалына kin VELD 2 
VEB #25 
enz... LIJN 5 ¿syiluwan са VIB 8 F 
хи-1 21 
á XW-2 23 š LIJN 
2 KLEUR ap Draw inputs : LIJN 8 VELD z 
ar ct T KE ag 
š Poke i в: i Er pu VDR #38 
#68 Poke input Т ° KLEUR ap VDB 
ka. ы 
VER ЖЕЗ 
VDE #FG 











aan L mamic us-31i : f ШЕПБЕй-рзгііс- 85-31 347 










































onmogelijk om uit- 
iaatste dot 
FG te maken. 








KLEURENKONFL IE 





кутии 
je een bepaalde veelkleurige 

het scherm wil tekenen idik- 

wijls gebruik makend van de moge- 

eid om drie kleuren in een veld 

te plaatsen ) is het toch wel goed + 
vooraf de bitnotatie te noteren. (Bij 

FG staat op 1, bij BG op 9) 

піді volgende stelregel : 


г) 































lang nullen niet onderbroken 55 CURSOR 19 
worden door een 1 kan de kleur- 37 CURSOR 10, 
waarde van de nul niet gewijzigd 58 CURSOR 10, 
worden. 59 16, 
Poke inputs : іс ~ dus kan men in een veld na een i 60 10,7 
t slechts een kleur bij gebruiken. 81 в 10, 
іс &2 CURSOR 10, 
| REF Het FILL- en het DOT- kommando kan 55 CURSOR 10,2 
1 je eveneens gebruiken, als je maar 64 CURSOR 10 
P LIJN 10 rekening wil houden met dese uitleg. 75 CURSOR 15,0 
Ë VELD 2 76 SY=GETC: e Bus BETC 
VER HSE 77 GU=GETC: ТЕ BZ<>82O0 THEN GOTO 77 
VDE #1 81 IF PD$-"P" THEN GOSUB 100:6085UB 400:GOTO 12 
2 IF FD$-“D" THEN 6056108 100:GOSLE 400:6070 500 
LIJN 10 85 5070 45 
VELD 3 109 MODE 2:COLORG 8 0 0 O:COLORT 0 14 G O:MODE ЗА 
VER SIE 110 FILL 0,0 ХМАХ,ҮМАХ 8 
yng siu 200 FOR LZ«o TO XMAX STEP В 





219 DRAW 17,0 17,17 0 

220 DRAW 17,55 LZ YMAX О 

230 NEXT 

| 259 RETURN 

h 400 REM жа кви» 

| & 16 401 REM ### SCHERM CLEAREN жак 

402 REM Заан xg d 9 xd eene 

405 COLORT ооо 

1 FOR SCZ-3 TO 0 STEF -1 

CURSOR O,SCX:FOR АРОУ=0 TO S9:PRINT " "а: МЕХТ 
NEXT 

CURSOR 0,3 

RETURN 

REM жие жұк нн 

REM xs D R ñ W E М жж 

REM za 

COLORT 9 13 0 9 

1МРИТ "LIJN "LZ 

IF LZ<1 ОК 17>15 THEN БОБОВ 400:6070 1000 
PRINT " 2 WA NK AE 

























| : IF XW1427100.0 THEN GOSUB 200:6070 5 
| PRINT " INPUT “Хи-2 
|; PRINT " 





IF XWiZ>XMAX 
DRAW XW1%, ZELE XW2%, 3 
IF FMZ-1 THEN BOSUB 2 
PRINT 

вото 500 


зан ЫЫ {очат ве-за | f ERSTEN, =i as-31 3495 


OR XWEESXMAX OR KLZ515 OR КІЗХ0 THEN FM%=i:6070 375 
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1080 
1055 
1040 
1065 
1070 
1980 
1985 
1090 
1100 
ilic 


i200 
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(вава VELDKLEURBYTE PEEKEN Asaz 
i жахан VELDDATA BYTE PEEKEN 
EREEEEREREEERERRERERKEERERERKREEREE 





za c m 
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HBFEF- (Y. 
VERS): 





GOSUB 400 

RETURN 

REM AER 

REM каже F Ü K E N zess 

REM жеее еа аан 

COLORT O 1100 

INPUT "LIJN "3L% 

IF LL OR 17218 THEM GOSUR 400:60Т0 500 
PRINT " "SIINPUT “VELD "МА 

IF VXZ«0.0 OR VZ59.0 THEN GOSUB 600:9070 1000 
PRINT " "ssINPUT "ELEURBYTE ";КЕХ 
PRINT ^ "P:IIMPUT “DATABYTE “DBX 

IF KRZ«0.0 OR KRZYBFF OR DBZ£O.D OR DBM FF THEN FM%=1:G0T0 1250 
JZ=45-LZ 

AZ=#EFEF— (ҮМАХ- 1) #24-Миж2-т 

BZ-AX-1 
FORE AZ 








ECRIRE KERE Зее 
FOUTMELDING INPUT * 


FBUTIEVE 
TURN 
БОТО 9999 





BE i mamni AS-i 
































This is the set of new symbols for FGT to be used with the program 
ADC-convertor. Other programs using this symbols will be published 
in foliowing issues. You can enter the data in DAl-monitor with 

the SUBSTITUE-command. 





B 


із 

















і 2 3 4 5 6 
PE]? ВУНЕ 
id 15 16 ІР 18 9 
D = se 4һ- + 











9995 OÙ oo FG FO FF 00 ФЕ ФЕ ЕЕ 

езда 34 36 36 8B 7D ВС SC 4D SA SC за C3 73 C8 
09750 3 в BC 6D 7D 01 99 BG FO FO FF Өй OF OF FF 
e9ce 43 78 AB 78 C3 CB ва св 92 98 op ФЕ OF FF 
e€9po eo FF C3 CB BA CB 29 69 27 87 ӨЗ 07 G6 15 
99Ей 0 38 1A 3 55 46 46 49 04 11 #0 ҒӘ 
egre ao FF ҒӘ 29 29 SC 3D 4D 2C ZD 


eaeo 
BALG 
Aze 
96839 






BAAD 
BABA 
BANG 
RADE 
HAEG 
зағә 
SESS 
еве 
ова 
a à 
өрде 
ева 
BESS 
9879 
epao 
анод 
BAG 
евве 
әнге 













88 8D ва BD 8B 
95 eg 40 BQ 49 
3 до ва 98 


1 55 92 96 85 94 4D SC 
BE 47 B7 58 58 594 56 
ве BE BB BS B3 B3 FS 


14 44 35 да 09 BE ФЕ FE 08 Fe 
7E ВО а BE BA Fë Fe FE ФЕ ЕЕ 
BE 99 Fé oF FF Fe FF 45 95 
6A 95 Ға ee ФЕ or FF РӨ FF 
ос 3C ё Е? C2 CS eB 96 eo Fa 
FF FO CB ес е6 49 4E 49 BO 
BE 88 ep ee Fo Өй GF ФЕ FF 


46 46 
Са ӨЕ 
7C 7F ВЕ 965 97 1 
із од 79 75 25 


за CA 29 2A 7A 


08 66 84 86 ВВ 88 n8 

5 393 SC SC 9C 92 90 
CS CS C9 39 
Сё CS Са 2 


7 37 52 SC 3 





SC ас 92 9C 92 АС A7 F7 
54 SA за bA 64 С 66 А2 
85 94 Ad AZ AC AF 15 OD 47 44 4А 


ЗА 58 9С 9C 9F 56 92 
84 14 @& 20 2E 2Е 9 
ОҒ G7 27 27 
БА 7A 7A 89 87 
16 ВЕ 70 72 72 92 
ба А? 98 47 78 


92 96 92 72 83 B3 84 
97 97 F7 92 22 ес ас 
46 4А 59 57 59 59 bA 
AA AA E? B7 B9 B7 D 
A4 95 AA 75 95 95 AA 
? AA 9B AA 7B 9B 7B 7D 
17 11 99 Fe Fe ӨЕ er ЕЕ ӨЗ FF 28 20 20 3D 
зр 4D 58 SC 4D BA А2 С2 AZ A7 А? C7 Са D3 
3 D6 C7 Пре 18 11 va ғо OG ФЕ ОР FF КӨ FF 09 FF 
28 2D 2D 4D AD SC 28 48 59 5? Sb D2 Пе C7 06 
AZ Ав 46 H7 B7 С? A4 DA FF өз ра op Өй op 00 











AS 

















BEE am ic ве- 1 





Aai 




































































ч. 


EN 


LI 





PAGE 91 


19 


E 
48 


= 
Qu 


оё 


7O 


ies 


119 


= ñ B + A B %, 


CH 


Het programma STATI 


eerste 5 berekenen het сет 


стат 


STISCHdEg ANALYSE bestaat uit 4 delen. De 
jdelde van een aantal gegevens net 


de standaardafwijking Geer middelbare fout) hierop. Er wordt 


gebruik semaakt van formules uit de statistiek. 


De middelbare fout 

dend cijfer als ze 

Cok het gemiddelde 

de MF, 

Vo; O.0224 wordt 
0.4512 " 
А ОВ Б 


(HF) wordt automatisch afgerond op 1 bedui ~ 
kleiner is dan 0.1, anders tot ор 2 cijfers. 
wordt afgerond tot op dezelfde eenheid als 


0.02 
0.45 
0.00» 

















-- EXOR DRAW 226, 20 105 21 
SA - DRAW 21 
MODE @:COLORT 9 14 9 Br МОРЕ DRAN 4 ‚195 244. 106 21 


SA: COLORG 9 19 14 15 
аз СНА (1) 8РжІЗ ВЕНЦИ GERE: 
X=2452Y=81:GO0SUB 19090 








DRAW 220, 85 244,85 21 
DRAW 148,70 159,70 21: DRAW 
148,85 148, 79 21 





ee 199 DRAW 148,120 169,120 21: 
222 MC DRAW 148,105 148,120 21 
ины ere Su 200 DRAW 148,95 128,85 21: DRAW 


AS=CHRS (11) +CHRS (3): X595: Y= 
49: 60908 100090 













(192: бовив 


219: Y=192: GOSUB E 





DRAW 124,69 148,60 21:DRAM 
148,60 148,50 21:DRAW 148, 
56 189,50 
DRAW 94, 
130 40,128 
DRAW 154,1 
DRAW 14 
DRAW 
DRAW 2 
DRAW 





60,40 21:DRAM 94, 























ami: BEER 








H 
H 





89,130 21 
DRAW 148,105 125,108 21: 
DRAW 126,165 94,85 21:DRAW 
94,85 84,95 21: ЕАМ 80,85 
80,56 21 

DRAW 275,95 299,95 21 
PRINT СНЕФ (12) 5 
PRINT " EXEL 
EVE OF-SCHA 
I N 8" 

PRINT :END 





U 


>< 


I 
L 


mo 


REM SUBROUTINE FET 

POKE #2F2,X MOD 256:POKE 

sX/256:FOKE #2Е4,У 

POKE #2F5,SP:POKE #2F6, ID 

bleet 
2O+VFHHLOFDE SPOKE #2F0, 










RETURN 


Toepassen als alle metingen verricht werden met dezelfde precisie 
bv. men meet 3 keer de lengte van een voetbalterrein en vindt 
100.14 m , 100.15 m , 100.16 m waarbij de fout op de laatste 
decimaal zit. 


Het gemiddelde <x) = 2% ш 709.44 + 490.43 + 400.46 


N 3 


- 700. 44333... 





(400.14 - лоо. 49313. D + [400.41 - 4x» | + [40044 - Qc 
3 (3-4) 





= 0.00834у2... 
— x = 100.145 +/- 


0.009 m 


го 
о 
о 
Ф 
= 
° 
09 
Ф 
в 
03 
|Ф 
B 
e 
a. 
е 
о 
m 
о. 
Ф 
-— 


Toepassen op metingen die verricht werden met een verschillende 
precisie. De precisie kan veranderen omdat bv. andere meet- 
apparatuur werd gebruikt of een andere proefopstelling. 
Vb. Er worden 5 verschillende experimenten gedaan om het 

alkoholgehalte te bepalen en men vindt 8.7 +/- 0.1 

8.65 +/- 0.05 en 8.8 4/- 0.5. 

Het is duidelijk dat de nauwkeurigste meting het dichtst 

bij het echte gemiddelde zal liggen. 

Gemiddelde (x> = ЕӘж = 8.66505 Т 8.66 

2%; 
met ga БЕ ME; = de fout op elke afzonderlijke 


meting 





aa 


TYT ari н=—:ж:1 





————————————M 















































ME = LÀ. = 4.42226*-2 t 0.04 PAGE 1 STATISTISCHE ANALYSE 
2 20 TITLE "STATISCHE ANALYSE” 
39 Gewogen gemiddelde 2 зе REM Verberckmoes Filip 11/1985 
ed 40 GOTO "MAIN 
Gemiddelde en standaardafwijking van een populatie. 50 PROCEDURE KOLOM 
i 45 EI 1 IF FLAG=@ THEN 
Vb. Men telt het aantal larven van vlinders die per dag 2 A=A+1: CRY=CRY-1: CURSOR 2, CRY 
uitkomen. Í 70 2 PRINT A;:CURSOR CRX,CRY: 
z У А " e 1 END IF 
Xi dagen 20 21 32 55 54 во 1 IF FLAG=1 THEN 
т S 2 KOLM=KOLM+1 
gi asntal 10: 252: A7 5 1 90 2 IF KOLM=2 THEN 
3 KOLM=@: CRX=CRX~STAP: CRY-CRY-1 
Na hoeveel dagen gemiddeld zal er een larve uitkomen met ; ec? S А=А+1: CURSOR @,CRY: PRINT А; : CURSOR CRX, CRY 
EE Ы 2 ELSE 
de standaardafwijking hierop. 3 CRX=CRX+STAP: CURSOR CRX, CRY 
120 2 END IF : 
Фу = “Фа | 34.077 2 31.31 1 END IF 
Ya ТІГЕ y 130 END PROC 
Standasrdafwijking = È 2H 2901 = (EFM) 8:9 2 0.88 140 PROCEDURE CORRECTIE СХ, СУ 
150 1 KEN: CURSOR CX, СТ: POKE #75,9 
E D [у - 4) 160 1 REPEAT 
4 
2 H=GETC - 
| 4° Lineaire regressie 170 2 ON ABS(H-15) GOSUB “UP, “DOWN, "LEFT, “RIGHT 
EE. ii EG 189 2 IF H=23 THEN 
| Dit is het 4° deel уап het programma waarmee de best passende 2 EE "CORR: 
| rechte door ееп aantal punten berekend wordt. 190 1 UNTIL Н-69: 
| ikte formules v E bx 1 CURSOR CRX,CRY:POKE %75,95 
| Gebrui orm oor ута + 500 BED PROC 
" 4 210 "UP 
b = nun = (Euler) ` ТЕ CY<=17 THEN 
| A + CY=CY+1: K=K-1-FLAG 
| ^ xè - n 
Уң (5 х) 220 1 CURSOR сх, ст: 
ЕКО ТЕ 
RETURN 
š En - ЪЎ х 230 ” DOWN 
Е т IF CY>=2 THEN 
1 K=K+1+FLAG: CY=CY-1 
y 240 1 CURSOR CX, CY: 
ху; - i A š PON END IF 
r л Y: (Es) x.) (correlatiecoefficient) RETURN 
1 L L D 250 "LEFT 
Габка 5 (Хх) Jin Ex = (54) IF CX=5+STAP THEN 
П 1 К=К-1: CX-CX-STAP 
| . TEM | К 3 260 1 CURSOR CX, CY: 
Voor meer uitleg hierover verwijs ik naar het artikel "Lineaire END IF 
EE Te Bruidn. ; RETURN 
regressie" in Dainamic 20 van Aad de Bruij 270 Daer 
IF CX=5 AND FLAG=1 THEN 
E 4; + + | + Ы i u 1 K=K+1: CX=CX+STAP 
End 289 1 © ‚СҮ: 
Verberckmoes Filip се, S 
Meidoornlaan. 16 RETURN | 
г қ 290 "CORR 
2720 BEVEREN CURSOR сх, СУ: PRINT SPCCSTAP-1); : CURSOR CX, CY 
зоо INPUT MT! (K): CURSOR CX, CY: RETURN 
310 PROCEDURE WIS 
320 1 IF FLAG-O THEN 
2 FOR I-18 TO 1 STEP -1 
330 3 CURSOR ©, I: PRINT SPC); : CURSOR 5, 1: PRINT SPC(12)5 
340 2 NEXT I: 


354 BEIER, mic нз- за MEES -ami— as-a1 ass 








490 
609 
610 
620 
630 
640 


650 


660 
679 
680 


690 
700 


710 
720 


730 
740 
750 
760 
77@ 
780 
790 
800 
819 


взе 
849 
850 


= = Е 





< 
5 
о № 


STATISTISCHE ANALYSE 





2 CRY=19: 

d END IF 

i š HEA 

2 1 Q T STEP га 

3 CURSOR @, I: PRINT SPC{4);: CURSOR 5,1: PRINT SPCCSTAP-1); 
3 CURSOR 5+STAP, I: PRINT SPC(OSTAP-1) 

2 NEXT I: 

2 CRX=5+STAP: CRY-19: 

H END IF 


END PROC 
PROCEDURE SCROLL 

1 ТОР=#ВЕЕЕ-5ж#86 

POKE #8А, ТОР MOD 255: РОКЕ #8Б,ТОР/256 
END PROC 
PROCEDURE SEPERATE 

FOR 151 TO М STEP 2 

15741: MTI! (J)=MT! CIO: MT2! (JO=MT! ‹1+1› 
NEXT I: 

NN-N/2 
END PROC 
FUNCTION ROUND! (NUMBER! , UNIT!) 
LOCAL АА!, ВВ, СС, DD 

AA! “NUMBER! /UNIT!: BB= INT CAA!) 
CC=BB+1 

IF CC-AA!»0.5 THEN 

DD=BB: 

ELSE 

DD=CC: 

END IF 

FN = DDXUNIT!: 
END FN 
PROCEDURE MFROUND 


PRR 


Pee De в р Ба 


L UN! =SEARCHUNIT! (МЕ!) : К! <-ТОСТ (UN!) 
1 IF UN!»-0.1 THEN 
2 UN! SUN! 710 
а MF! ROUND! (MF! , UN! 2: METOTS=STRS$ (MF! ) 
1 ELSE 
2 MF!=ROUND! (MF! , UN!) 
2 MFS=<STRS (МЕ! >): MFS=MIDS (MES, 1,1) 
2 IF MFS="1" THEN 
3 КІсК!-2; 
2 ELSE 
3 K!=K!-1: 
2 END IF 
2 MMS="""' 
2 FOR 1-1 TO К! 
3 MMS=MMS+"'O” 
2 NEXT 
2 MFTOTS="0."+MMS+MFS& 
1 END IF 
END PROC 
PROCEDURE BACK 
1 IF FLAG=@ THEN 
2 N=N~1: АЗА-1: CRY=CRY+1 
1 END IF 
1 IF FLAG=1 THEN 
2 N-N-1: KOLM-KOLM-1: CRX=CRX-STAP: 
i END IF 
END PROC 
FUNCTION SEARCHUNIT! (NUMBER! ) 
T IF NUMBER!»-1 THEN 





BEERS am i = Е = — 3 1 


GET 
899 
909 
910 
его 


1140 
1150 


1160 


1170 
1180 
11909 
1200 
1210 
1220 


1230 
1240 
1399 


1310 
1329 
1330 
1340 
1350 


^ 
t 
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T! -10 ^ INTCLOGT4RUMBER! >) 
F NUMEER!»O THEN 


T! 10^INT(LOGT (NUMBER! +1E- 105) 


юю юн во 


PROCEDURE INVOER 
KOLOM : INPUT HELPS 
IF HELPS-"C" THEN 
CORRECTIE CRX, CRY: BACK 
ELSIF HELPS="E" THEN 
QUIT=1 
ELSE 
MT! (M)=VAL CHELPS) 
END IF 
END PROC 
PROCEDURE UITVOER 
PRINT Г; 
FOR J=@ TO AR-1 
CURSOR 4+STAP*J, CURY: PRINT TS; RES! (J); 
NEXT J 
CURSOR 4+STAP#J,CURY: PRINT TS 
END PROC 
"MAIN 
PRINT CHR$ (12) 
CLEAR 5000: DIN RES! (5) 
DIM MT! (200), МТ1! (100), МТ2! (1005: TS=CHRS (10) 
CURSOR 10,20: 
FOR 151 ТО 40: 
PRINT CHRS(25);: 
NEXT 1 
CURSOR 18,18:PRINT "STATISTISCHE ANALYSE” 
CURSOR 10,16: 
FOR I-1 TO 40: 
PRINT CHRS 25); : 
NEXT I 


= D ka № в на 


кә ра DM ta ә 


к 


к 


PRINT : PRINT : PRINT : PRINT TAB(10);"KEUZEMENU : statistisch 


gemiddelde......1" 
PRINT ТАВ (22); "Сенодеп gemiddelde 1..... 2" 
PRINT TAE‘22);"Gewogen gemiddelde 2..... 3" 
PRINT ТАВ (22); "1 1пеа1ге regressie....... 4" 
PRINT TAB(22);"UVitleg..... cece ee een EE 
PRINT : PRINT TABC19);,”UW KEUZE 23 
REPEAT 
1 REPEAT 
2 H=GETC: 
1 UNTIL Н>48: 
UNTIL Н<54 
ITEM=H-48: PRINT ITEM;: WAIT TIME 30 
ON ITEM GOTO “STATG,“GEWGL, ”GEVWG2, "LINRES, "UITLEG 
"STATG 
FLAGzQ:CRX-5:CRY-19: STAP-13 
PRINT CHR$ 12); TAB(10);"STATISTISCH GEMIDDELDE" 
PRINT TAB(1@);"= = = = = = = = 
PRINT 


ats mou 


PRINT " # x d=x-<x> аса á 


FOR 1-@ TO 42: 
H PRINT CHRS$(112;: 
NEXT I 





сет mamic ai 


за 





DBASIC 
PAGE 
1369 
1370 
1380 


139@ 
1490 


1419 
1420 


1732 


1740 
1750 
1760 
1770 
1780 
1790 
1800 
= = 8 


во 


e DÄ ka = = 


PP tat? 


eNe 


P to t= > = 


ю P, > = 


V2.2 


4 
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FOR 7-20 TO 1 STEP -1 
CURSOR I,J: PRINT 7%;: 
NEXT 


FOR 1=4 TO 43 STEP 13 
u 


N=N+1 
INVOER 
IF CRY=1 THEN 
WIS 
END IF 

UNTIL QUIT=1: 

NeN-1 

FOR Ісі ТО N: 

SOMX!=SOMX!+MT! CD 

NEXT г: 

GEMX! «SOMX! ZN 

SCROLL :PRINT CHR$(12); 

FOR I=1 TO М: 
рі! =МТ! (1) -GEMX! : DD! DI  XDI! 

RES! (@)=MT! CI): RES! (122 DI! : RES! (2) DD! : AR=3 
UITVOER 
SOMDD! «SOMDD! +DD! 

NEXT I 

МЕ! =SQR (SOMDD! / (NX (N-1))):MPS=STRS CMF!) : MFROUND 

UN!=SEARCHUNIT! (MF!) 

IF UN!»-Q.1 THEN 
UN!=UN! /10: 

END IF 

GEM! ROUND! (GEMX! , UN! > 

PRINT : PRINT "X = ";GEM!;" +/- "; MFTOTS: PRINT 

GOTO "EINDE 

“GEWG1 

FLAG=1: СЕХ< 18: CRY-19: KOLM-1: STAP=13 

PRINT CHR$ (12); TAB(152;"GEWOGEN GEMIDDELDE 1" 

PRINT TAB(15);"= = = = = = = = = 

PRINT 

PRINT # x MF 

FOR I=@ TO 55: 

PRINT CHR$(11);: 

NEXT I 

FOR I=4 ТО 57 STEP 13 
FOR J=2@ TO 1 STEP -1 

CURSOR I,J:PRINT TS;: 
NEXT 

NEXT 

REPEAT 
N=N+1 
INVOER 
IF CRY=1 AND KOLM=1 THEN 

VIS : 
END IF 

UNTIL QUIT=1: 

N=N-1 

SEPERATE 

SCROLL : PRINT CHRS(12); 

FOR I=i TO NN 
СІ!-<1/МТ2! C20 ^2:GXI! -GI  xMT1! CD 
RES! (090 -MT1! (1): RES! (122MT2! CI): RES! (2)=GI! 
RES! «G3» -GXI!: AR=4 
UITVOER 

ami Bea =i 


шош” 


TEE g*x" 
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PAGE 


1810 
1820 
18з9 
1840 
1859 


1869 
1870 
1889 
1890 
2000 


2010 
2020 
2030 
2040 
2950 


2960 
2070 
2080 


2099 
2100 


2110 
2120 


2130 


2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2229 
2230 
2240 
2250 
2260 
2279 
2280 
2290 
3009 


3010 
3020 
3030 
3040 
3050 


3669 
3070 
3989 


k: 


= №0 њ: 


PRR RE 


кэк вә Б р Б 
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=SOMG!+GI!: SOMGX! =SOMGX! +GXI! 


MP!=SQRC1/SOMG! >): ME$-STRS$ CME!) : MFROUND 
GEMX! =SOMGX! “SOMG! : UN! =SEARCHUNIT! (MF! > 
IF UN!>=0.1 THEN 

UN! SUN! 710: 
END IF 

GEM! =ROUND! (GEMX! , UN! > 
PRINT : PRINT 


PRINT "X = ";GEM!;" +/- ";MFTOTS 
PRINT :GOTO "EINDE 
"GEWG2 


FLAG-1; CRX=18: CRY=19: KOLM=1: STAP=13 
PRINT CHR$ (12); TAB‘15);"GEWOGEN GEMIDDELDE 2" 
PRINT TAB(15);"= = = = = =. = = = = =" 
PRINT 
PRINT " # x 8 g*x 
FOR I=@ TO 55: 
PRINT CHR$(11);: 
NEXT I 
FOR I-4 TO 57 STEP 13 
FOR J-20 TO 1 STEP -1 
CURSOR I,J:PRINT T$;: 
NEXT 
NEXT 
REPEAT 
N=N+1 
INVOER 
IF CRY=1 AND KOLM-1 THEN 
WIS ; 
END IF 
UNTIL QUIT-1: 
N-N-1 
SEPERATE 
SCROLL :PRINT CHR$ (12); 
FOR I-1 TO NN 
GX! =МТ1! CIO XMT2! (I): GXX! -MT2! CIDXCMTI! CI) 2) 
RES! (Qo -MT1! (I): RES! (12 2MT2! CI); RES! (2)=GX! 
RES! (3)=GXX!: AR=4 
UITVOER 
SOMGXX! =SOMGXX! +GXX! : SOMGX! =SOMGX!+GX! 
SOMG! =SOMG! +MT2! (1) 
NEXT I 
TT! -SOMGXX! ~ (SOMGX! ^2) /SOMG! 
МЕ! -SQR(OTT! / (SOMG! - 125 : MF$=STR$ (MF! ): MFROUND 
GEMX! =SOMGX! /SOMG! : UN! =SEARCHUNIT! (MF!) 
UN! -UN! /10: GEM! - ROUND! «GEMX! , UN! > 
PRINT :PRINT "X = ";GEM!;" +/- ";MFTOTS 
PRINT :GOTO "EINDE 
"LINRES 
FLAG=1; CRX=16: CRY-19: KOLM-1: STAP=11 
PRINT СНБ (12); TAB(15);”*LINEAIRE REGRESSIE” 
PRINT TAB(15);"= = = = = = = = = =" 
PRINT 
PRINT " # x y y*x SS 
FOR I=@ TO 59: 
PRINT CHRSC11);: 
NEXT I 
FOR I=4 ТО 59 STEP 11 
FOR 7-20 TO 1 STEP —1 
CURSOR I,J:PRINT T$;: 


MEES am і m= 85-351 


g*x^2" 


ула" 


= EE 





РАСЕ 6 


3090 
40900 


4010 
4020 


Pir нә = 


4030 


4040 
4050 
4060 
4070 
| 4080 
| 4090 
4100 
4110 
4120 
4139 
4140 
4159 
4160 
| 4170 
4180 
| 4190 
| 4200 
| 4210 
| 4220 
4230 
| 4240 
| 4250 
| 4260 
| 4270 
| 4280 
| 4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
5000 


Eo RS RS ps ве вее 





5010 
5020 
5030 
5040 


| 5050 


5060 
5070 
5080 
5090 


5100 
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IF CRY=1 AND KOLM=1 THEN 
WIS : 
END IF 
UNTIL QUIT-1: 
N=N-1 
SEPERATE 
SCROLL : PRINT CHR$ (12); 
FOR 1=1 TO NN 
XY! =MT1! CIO XMT2! CID 
XX! =MT1! CID 72: YY! «МТ! (I) ^2 
RES! (Q) zMT1! (1): RES! (12 2MT2! (1): RES! (2)=XY! 
RES! (3) =XX!: RES! (4) =YY! : AR=5 
UITVOER 
SOMX! =SOMX!+MT1! CI); SOMY! -SOMY! +МТ2! (I) 
SOMXY! -SOMXY! +XY! : SOMXX! «SOMXX! +XX! 
SOMYY!=SOMYY! +ҮҮ! 
NEXT I 
PRINT 
RES! (@)-SOMX! : RES! (1) - SOMY! : RES! (2)= 
RES! (3)  SOMXX! : RES! (4) - SOMYY! : AR=5: I 
UITVOER 
TELLER! NNXSOMXY!-SOMX! *SOMY! 
NOEMER! -NNXSOMXX!-SOMX! ^2 
RICO! =TELLER! /NOEMER! 
АХ! = (SOMY!-RICO! *SOMX! > “NN 
NOEMER1! =NNXSOMXXK! -SOMX! 72 
NOEMER2! =NNXSOMYY!~SOMY! 72 
CORR! =TELLER! /SQR<(NOEMER1! XNOEMER2! > 
PRINT : PRINT "Y = ";AX!;" + ";RICO! ;" 
PRINT :PRINT "CORRELATIECOEFFICIENT < 
PRINT 
INPUT ” HOEVEEL BEDUIDENDE CIJFERS WENST U!";BD 
PRINT :К!=107‹Вр-1› 
UN! =SEARCHUNIT! CAX! 2: UN! «Г/М! /K! : AX! -ROUND! (AX!, UN!) 
UN! =SEARCHUNIT! (RICO!) ; UN! UN! ZK! 
RICO! -ROUND! (RICO! , UN!) 
UN! =SEARCHUNIT! (CORR! >: UN! UN! ZK! 
CORR! -ROUND! (CORR! , UN! > 


SOMXY! 
-Ф 


ж x" 
" ; CORR! 


PRINT : PRINT "Y = "; AX! ;" + ";RICO!;" жо” 
PRINT : PRINT "CORRELATIECOEFFICIENT = ";CORR! 
GOTO "EINDE 

UITLEG 


PRINT CHR$ (12); 


PRINT "STATISTISCHE ANALYSE is een programma dat gemiddelden met” 
PRINT "hun standaardafwijking berekent." 

PRINT "Daarnaast kan de kleinste kwadraten rechte berekend 
worden." 

PRINT :PRINT "1 Statistisch gemiddelde 
aantal" 

PRINT TAB(27);"metingen (x) die allen dezelfde" 

PRINT TAB(275;"middelbare fout (MF) hebben." 

PRINT TAB(27);"vb. x-7.01 m; 7.02 m; 7.01 ..." 

PRINT : PRINT "2 Gewogen gemiddelde 1 gemiddelde van een 
aantal” 

PRINT TAB(27);""metingen (x) die verschillende ” 


gemiddelde van een 





DEASIC V2. 


PAGE 


5220 
5230 
5240 
5250 


5260 


5270 
5280 
52909 
5300 
5319 
5320 
10000 


10010 
10020 


10939 
10040 


2 
? 


, 


STATISTISCHE ANALYSE 


PRINT TARZ27);" middelbare fouten (MF) hebben." 
7.01 +7- 


0.05" 


PRINT TABC27); "vb. 7.02 +/- 9.01; 

PRINT : PRINT “3 Gewogen gemiddelde 2 : gemiddelde van een 
aantal" 

PRINT TAB(27);"metingen (x) die een aantal” 

PRINT TAB(27);"keer (g) voorkomen” 

PRINT TAB(27);"vb. staartlengte muizen " 

PRINT TAB(3@);"16.1 cm komt 19 keer voor” 

PRINT TAB(3@);"16.2 cm komt 20 keer voor" 

PRINT ТАВ‹30);”16.3 cm komt 8 keer voor” 

INPUT " DRUK RETURN -->"; RETS 

PRINT CHRS$(12): PRINT "4 Lineaire regressie opstellen van de 
best” 

PRINT TAB(23);"passende rechte tussen de meetpunten” 

PRINT ТАВ<230;”Х en Y via de methode van de kleinste” 

PRINT TAB(23);"kwadraten + de correlatiecoefficient.” 


PRINT : PRINT "Corrigeren van een voorgaande meting 

{ RETURN)" 

PRINT : PRINT "Besturing cursor via de cursortoetsen." 

PRINT : PRINT ”[ SHIFT] + %;CHRS(137);" : deze meting verbeteren.” 
PRINT : PRINT "Е ‘zonder RETURN !) einde corrigeren” 

PRINT : PRINT "Als alle metingen zijn ingetikt E L RETURNI.” 
PRINT : PRINT : INPUT "DRUK RETURN -->”; RETS 

GOTO "MAIN 

EINDE 

PRINT 

INPUT "Wilt U meer berekeningen maken (J/N)"; ANS 

ТЕ AN$-"J" THEN 

MODE 9: СОТО "MAIN: 

END IF 


MODE 9: PRINT CHR$ (12) 
CURSOR 0,20: PRINT "TOT DE VOLGENDE KEER.": END 












PAGE 91 -- GOSSIM 

i REM PAIHERE E EEEE EEE IH HMA IERE 

2 REM xx COSSIN уда '84 xxx 

3 REM кзззнннвевевекзвенезанезаенаевзезвежанк 

4 REM 

9 CLEAR 256:MODE O:PRINT CHR$ (1233: 
MODE &:COLORG 9 5 7 9 

39% YH-YMAX/2. 09: PI2!z2, 04PT / CXMAYX 420.01 : 
CC-21:E-XMAX-1.0 

319 FOR X=E TD 1.0 STEP -2.@:CX!=COS((X+ 
10.0) xPI2!) 

529 1 Y1-354923CX':Y2-127*CX ! : X1 2X Y2-Y1 

336 1 FILL X,YM-Yi X1,YM-Y2 СС 

sae 1 FILL E-X,YM4Yl E-X1,YM*Y2 CC 

55е СС=22+21-СС:МЕХТ 

999 БОТО 999 











CAT ENEE 


ле 1 












































GMMING THE DAI IN MACHINE AND ASSEMBLY LANGUAGES 
by Ü W Read 


PROGR 


Fart 1 - GETTING STARTED 


This series of articles is intended for DAI users who wish to venture 
into the realms of machine code programming. The advantages of machine 
code over BASIC really become obvious with long programmes: much quicker 
loading from audio cassette and faster run times. There are also some 
jobs that can only De done with a machine code programme: for example, a 
table later in this article is a copy of the screen display from the 
рат = Utility LOOK facility. A short machine code programme was written 
to transfer that table from screen to the text buffer of the word 
processor ‘used for typing this. BASIC could not be used because the 
action of switching from Utility to Basic would clear the screen, 
deleting the table before it could be copied. 


The starting point is the DAI’s versatile Machine Language Utility 
Monitor (вее DAI Manual pages 106-117) which is used, instead of BASIC, 
for entering and displaying machine code instructions. For the presnt, 
only six of the Utility commands are needed. They are: Z, initialize: F, 
filis S, substitutes D, displays б, gos and L, look. Short programmes, 
say up to about 50 lines, can be entered with the S command. Longer 
programmes need an assembler. In this first article we will manage 
without an assembler by keeping the programme examples short. The 
examples introduce а few instructions but are chiefly aimed at 
demonstrating movement of information within the microprocessor. 
Subsequent articles will deal with more machine code instructions and 
will show how DAI ROM routines can be used to shorten our machine code 
programmes. Later examples will include subroutines that can be used to 
build up а simple machine language word processor or file writer 
programme. 


It may be helpful te start with a few definitions: 


Assembler ... a programme which checks the validity of assembly language 
language statements and converts them into machine code. 

Assembly language ... a programming language that allows the use of 
mnemonics in place of machine code instructions and labels 
instead of addresses. 

Source Code/Programme ... statements/programme written in a higher level 
language than machine code: eg BASIC or assembly language. 

Object Code/Programme ... machine language code/programme produced by ап 
assembler or compiler from source code. 

Machine Code/Machine Language Fragramme (MLF) ... instructions/programme 
expressed in the form they are used by the computer. 

Register .... a device for storing data temporarily. 


For programming in either assembly or machine language it is necessary 
to know a little about the microprocessor in the computer. The DAI uses 
the 80868 which has 19 registers available to the user: 2 have 
capacities of Z bytes {iá bits): the others are of 1 byte (8 bits) 
capacity but they can be paired to make Z-byte registers. The ten 
registers are: 


The i-byte capacity registers: 


Register A Accumulator 
Flag register Holds 3 flags. 
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А and Flag paired are called 
the Programme Status Word (P5H). 


Register B General purpose. B and С can be paired. 
Register C ditto 
Register D ditte D and Е can be paired. 
Register E ditto 
Register H ditto H and L can be paired. 
Register L ditto 


The 2-byte capacity registers: 


PC register Programme Counter. It stores the 2-byte address where 
the next instruction is to be found. 
SP register Stack Fointer. It stores the 2-byte address where the 


last item placed on the stack resides. 


In assembly language, paired registers adopt the identity of the first 
register of the pair, eg: B identifies both register B and register-pair 
ВС; the type of instruction used determines whether one register or a 
pair is needed. Although registers H and L are classed as general 
purpose registers their main use is as a register pair to hold Z-byte 
memory addresses, with H holding the high byte of the address and L the 
low byte. Data in any register or register-pair can be incremented or 
decremented by one, but that is the only arithmetic that can be done in 
general purpose registers: the accumulator is used for anything more 
complicated, and it is in the accumulator that the result of the 
arithmetic operation will be founds the result replacing any previous 
content. 

The Flag register holds B bits, but only 5 are flags. The flags are 
Carry, Parity, Zero, Sign and Auxiliary carry. They signal conditions 
resulting from arithmetical or logical operations within the 
microprocessor, eg: if the result of a calculation was a negative value 
the Sign flag would be set to 1, otherwise it would be ө. The bit 
number of each flag is given in the DAI Manual (page 113). Use of flags 
will be covered in Part 2. 


Microprocessor operating instructions, often referred to as op codes, 
are B-bit binary codes. The DAI displays and accepts 8 binary digits as 
2 hexadecimal characters, and it is these that make up the machine code. 
Hex characters may be simple to key into a computer but they are hard to 
remember. Therefore they are replaced by mnemonics to ease the task of 
writing source code. Some machine code instructions are single byte and 
are self-sufficient, others need single or  double-byte immediate 
Operands. Here are two examples of each:- 


Hex machine Mnemonic Comments 
code code 
(по operands) 


зе MOV D,B Move data to register D from 
M register B. 
ес тме с Increment register С (add 1 to 


the data already in С). 


€i-byte operands) 
SE 41 (oper and=41) MVI A,41 Put #41 into the accumulator (а). 
се 17 (oper and=17) ADI 17 Add #17 to value in accumulator. 


(2-byte operands) 
21 34 12 {oper and=3412) LXI H,1234 Load register pair HL with the 


memory address #1234. 
C3 ӘӘ 12 (operand=@012) JMP 1290 Jump to (Go to) address #1200. 
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Note that operands are in hex and that the bytes in the operands of the 
last 2 examples are reversed when translated from mnemonic form ta 
machine code: the microprocessor wants the Тон addresss byte of the 
operand first, then the high byte. 


The full B@BƏA instruction set is printed at the end of DAInamic 24. For 
a comparison of the instructions with their HASIC equivalents see Dave 
Atherton’s list in DAInamic 15, and at the same time correct a misprint 
there: hex code 12 is shown as LDAX Ds it should read STAX D. 


Now try a simple machine code programme to put the letters DAI on the 
screen. Assembly language mnemonics will be used for writing the souce 
code. The mnemonics will then Бе translated into machine code by 
referring to the 89804 instruction set. Place the letters near the 
bottom of the screen, at say position #В4А1 (character position 43, 3 
lines up). This will leave the top of the screen free for demonstrating 
the working of the programme. #вай1 is a 2-byte address and therefore 
has to be stored in a register pair: HL is the most suitable pair 50 we 
will load the address into that, using an LXI instruction. LXI is the 
mnemonic for Load eXtended Immediate (extended signifies a register 
pairs immediate refers to the data or address that immediately follows 
the register identity. See line 1 of Programme 1). Next we will store 
the 3 letters D, А and 1: they will be stored singly so 1-byte registers 
will be suitable, using MVI (Move Immediate) instructions to load 
registers A,B and C. We have to load the hex ASCII code of the required 
letter, which for D is 44s if we loaded D the micro-processor would 
accept it as #0 which is decimal 13. (See lines 2,3 and 4). 


When screen address and the letters are in registers the programme has 
to move the letters to the screen: a move instruction is again wanted 
but this time not a Move Immediate because the data is already waiting 
in registers; the mnemonic is MOV but destination and source of the data 
to be moved must be added. The destination is M which means the Memory 
at the address held in register pair HL. The source is register A. Note 
that the mnemonic has the destination before the source: MOV M,A. Line 3 
puts D on the screen. The next step is to change the address in HL to 
indicate the next character position on the screens lines 6 and 7 do 
that by subtracting 2 from HL. Moving letters A and I to the screen 
could be done by MOV M,B and MOV M,C instructions but a longer method, 
moving them to the screen via the accumulator, is used for this 
demonstration. Lines В and 9 deal with letter А, lines i9 to 13 with 
letter I. 


Frogramme 1. 


Source Code Übject Code Comments 
(—bytes-) 
{i 2 5) 

@ МОР oo No operation. Micropr steps over this. 

1 LXI H,B4ñ1 21 Ai Dä Load reg pair HL with address #B4A1. 
(BA goes into reg H, Al into reg L) 

2 PVI A,44 ЗЕ 44 Move to reg ñ the ASCII code for "DI 

5 MVI B,41 об 41 Move to reg В the ASCII code for 7” 

4 MVI C,49 DE 49 Move to reg С the ASCII code for 21” 

5 MOV M,À 7? Move the contents of reg ñ into the 
memory addressed by reg pair HL. In 
this example the instruction takes 
#44 from ñ and puts it in #B4A1. 

ва DCX H 2B Decrements the HL register pair. It 

Z DEX H 2H is done twice to step over the colour 
byte and on to the next character 
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EE 


position of the screen, #B49F. 


в MOV а,в 78 Hove to ñ the #41 stored in B 

ç MOV M,A 77 Fut into memory location #B49F the 
#41 that is now in reg A. 

із DCX H 2B Step over colour byte to the 

ii DCX H 2B next character position. 

12 MOV A.C 7? Move to A the #49 stored in С 

із MOV M.A 77 Put #49 into memory #B49D 

за МОР eoo Mo operation. 

15 HLT 76 Stops the microprocessor. 


Byte number 1 in the object code column is the op code, bytes 2 and 3 
are the immediate operands. The line numbers shown are not needed by the 
computer; they are only for our covenience. 


Now the machine code has to be loaded into memory (RAM) so that it can 
be run. We will place it at address 4366 onwards: it could of course be 
placed anywhere in the available RAM space. Switch the DAI to its 
Machine Language Utility mode (page 166 of the DAI Manual). It is 
worthwhile filling an area of memory with noughts before entering a 
short programme; there is no technical need for this but it does make 
for easier viewing with the Utility Display facility if bytes left from 
earlier programmes are cleared away. Use the Utility command FILL (page 
111 of the Manual) as follows: 
ЕЗва SFF o 


Now type in the object code programme manually using the Utility command 
SUBSTITUTE (page 112 of the Manual). Start with S366 and enter the 
object code a byte at a time thus:- 5300 оо 21 Al B4 ЗЕ etc, ending 
with 76. Then leave the substitute routine (with cursor left key) and 
use the DISPLAY command (p 119 of the Manual) to check the code entered: 

D300 SIF 
The screen display should be the same as this: 

ооо оо 21 бі BA ЗЕ 44 06 41 ФЕ 49 77 2B 2B 78 77 2H 

әзіз эв 79 77 ӨӨ 76 00 69 o0 OO o0 ӨО оо өө OO об ве 


Initialise with the Utility command 75 then run the programme Utility 
command 300. The letters DAI should appear оп the screen and then the 
cursor symbol will stop flashing because the HLT instruction at the end 
of the programme has stopped the microprocessor. Some means of 
terminating the run is needed, like the END statement in BASIC. HLT is 
rather drastic inasmuch as it is necessary to use the RESET button to 
restore the DAI to normal, but it is a convenient, single byte 
instruction. Now reset the DAI, using the button, switch back to Utility 
and Display with 0309 З1Е again. The machine code programme will still 
be there, even after the reset. That is an advantage which BASIC cannot 
match!. 


Use the Utility LOOK command to see what is happening in the registers 
during a run, but first clear the screen and initialise registers and 
vectors. Initialisation (with Z3) is always necessary before the б or E 
Utility commands. Switching to BASIC and back again to Utility is ап 


easy way to clear the screen. The sequence is as follows:— 
в 


UT 
25 
L Zoo Zoe 51 


м 


а fable witl be displayed (there is а сору оп next page). The first 
entry 71% on each line is the address of the instruction just executeds 


Dee mamic 85-31 38585 











Р, the programme counter, gives the address of the next instructions A DEX H DCX H 2B 


to L are the registers and the bytes beside them are their contents. The моу АУЕ RICE зе Ges Mapas in reg * i EE 
Flag (Е) and Stack pointer (S) registers can be ignored as they are not in A, leave result in A. 

used in this short programme. The first line shows all the registers at Ги WAN iid MA 74 Letter I to screen 

zero after the first instruction. They were so set Бу the Utility 25 HLT HLT 


command and stayed like that because the first machine code was a "mp 
operation” (МОР) which did nothing more than increment the Frogramme Change the machi б I ë b . "S HERE | 
counter register. The second line shows that the screen address has been Cosmand. and the Ine COG ып ec SE ncc аа су substatute 
loaded into the HL pair by LXI Н,В4й1. As that was a Z-byte instruction 0508 06 2 Д1 age ages OD UH arr ы ке pet 

the Programme counter stepped on 3 to point to the next instruction at 6516 2B не ie " е ЕЕЕ юз өө 77 2B 

#504. A glance down columns H and L shows when the address in HL is > Ф 77 oo 76 Фе оо O0 00 GO o0 OO оо 06 өй oa 

decremented. The ASCII codes for the letters go into the appropriate 



























































register one after the other. Note that the various “томе” instructions Manu qd Again and Hee Utility E590 309 315 to observe the results of 
only copy data to the destination: the original data remains in the е I š and ADD B instructions on the ñ register. 
source until it is over-written by a later move or load instruction. Now : 7 
Thus 41 is moved to the accumulator from the В register by the rewrite the programme to put a space between each letter. Printing 
instruction MOV A,B at #3@D, yet still remains in B for the rest of the the spaces can be combined with the move to the next character position, 
programme. k in a subr outine. That will introduce some more instructions: CALL addr, 
The RESET button has to be used again to restart the DAL. for which the machine code is CD plus a 2-byte address, in low byte high 
byte order. CALL is like BASIC’s GOSUB and it too must find a Return 
| A=00 F=02 В-да С-де D=00 E=00 H=00 Lee S FBFE P=0301 (mnemonic НЕТ, machine code C9) at the end of the subroutine. The label 
| д-во F-e2 B-00 C=@@ D-00 E=00 H=B4 L=Al З-ЕВЕЕ Р-0504 “SPACE” will identify the subroutine. The other new instructions are 
A=44 F-02 B=@@ C=0@ DBE E=00 H=B4 L=Al S-FBFE P=0506 FUSH and POP. PUSH puts the contents of a register pair on to the РАІ? 5 
A=44 F=02 B-41 C=0@ D=60 E=00 H=B4 141 S=F8FE P-eze8 Stack. POP takes those same contents from the stack and restores them to 
A-AA F=02 B-41 C-49 D=00 E=0@ H-B4 L-A1 S-FBFE рР-озФА the register pair. The Stack is а block of memory (#FB00-HFOFF in the 
Ас44 F=02 B=41 C-49 D=00 E=@@ H=B4 181 S-FBFE Р-ФЗӨВ DAI) used by the microprocessor as а temporary store. Data is always 
A=44 Е-02 В-41 C-49 D=@@ E=0@ H-B4 L=A@ S-FBFE P=030C added to the ’top’ of the stack, thus the last item PUSHed on is the 
д-44 Е-02 B-41 С-49 D=00 E=00 H=B4 L=9F S=F8FE P=030D first to be FOPped off. In this programme register A will insert the 
1-636D б=41 F=02 В=41 С=49 В-од E=00 H=B4 L=9F S-FBFE Р-ФЗФЕ space, but we need to save the ASCII value it already contains 
I-Gz0E А=41 F=02 В-41 C=49 D=00 E=00 H=B4 L=9F S-FBFE Р=ӨЗӨЕ therefore we PUSH PSW at the start of the SPACE subroutine and РОР PSH 
І<ӨЛЗФЕ A=41 F=02 B-41 C=49 D-60 E=@@ H-B4 L-9E S-FBFE P=0310 at the end, before returning to the main programme. The machine codes 
1-63i9 A=41 F=02 В-4і C-49 D=00 E=00 нева L-9D S-FBFE P=0311 are ЕЗ and Fi respectively. We push FSW, not A, because it is а register 
ІзӘЛіі A=49 F=02 B=41 C-49 D=00 E=@@ H-B4 L=9D S-FBFE Р=@512 pair that is being preserved. 
I-6212 A=49 F=02 B-41 С-49 Dee E=0@ H-B4 L=9D S=FSFE P-G313 
I=0315 4-49 F=02 B=41 С=49 Drog E=@@ H-B4 L-9D S=F8FE P-6314 Programme 3 
[xs ` Source code Object code Comment 
The programme can now be altered to demonstrate some more machine code МОР ве 
instructions. This time we will add ог subtract values to change the LXI H,B4Al 21 Al B4 
accumulator from its original value (44) instead of moving in new MVI 8,44 ЗЕ 44 
values. Instructions are available to change the value in the MVI в,е8 a6 oB " 
accumulator by adding or subtracting either immediate data or values CALL SPACE CD 16 ӨЗ Call subroutine ? SPACE? 
Ы already іп registers: they are respectively: ADI, SUI, ADD r and SUB r, SUI 3 DS 05 Value іп reg A becomes 44-5 
И where the "r^ represents the identity of the register. CALL SPACE CD 16 ӨЗ Prints letter Atspace 
Here are the original and modified programmes:- ADD B Be _ Value in А becomes 41+8 
CALL SPACE CD 16 ӨЗ Prints letter I+space 
Programme 1 Programme 2 code Programme 2 comment NOP 99 
Source code Source Object : HET р 7 . End of main programme 
NOP МОР aa Subroutine to print character in reg A, print a space,adjusting reg pair 
LXI H, вда? LXI Н, BAAL 21 AL B4 a to next character position after each print, then return to main 
! MVI 4,44 MVI а, 44 5 j Var ammEs 
| us BORN de 575 22 2n Load reg B with 8 SPACE PUSH PSW FS Save contents of A on Stack 
| мет С,49 MOV M,A 77 Move letter D to screen жем M.A rT Send letter in reg ñ to screen 
HOV M,A DCX H 2в Decrement HL reg pair... Sc Н 2B Step to next ` 
DCX H DCX H 2B ...and again Bo да 8 character position 
DCX H Sur 3 Dé өз Subtract 3 from accumulator, Wee ра ЗЕ S9 Load ñ with ASCII space (#20) 
result 41 in accumulator DEX u^ А EE, ые E 
MOV A,B МОР ae Easy way to delete an unwanted DCX H == 
instruction from the program. POP PSW РҮ 
MOV M,A MOV M,A 77 Letter A to screen БЕТ Restore ñ register, from Stack 
DCH H DCH H эв се Return to main programme 


= E Ёз BIEISESOmi = Ыш-ші EET mami єс 853-31 aa? 























Here it 15 in memory: 

300 060 21 Al HA 3E 44 Әб oH CD 16 03 Dó 85 CD 16 ӨЗ 
ie вә CD 16 Ф oo 76 FS 77 2B 2B ЗЕ 20 77 2B 2B Fi 
олго Со 00 ӨЗ O0 etc. 












The address #516, of the subroutine, had to be found by counting from 
#300 the number of programme bytes already allocated prior to reaching 
the label SPACE. It is the address of the first instruction (ҒЗ) of the 
subroutine. That address was then put in the object code wherever there 
was a CALL SPACE. 


Use ZZ then 1300 З80 514 to examine the main programme and Z3 then 1508 
S16 X20 to examine the subroutine. Note how the Programme counter 
changes on CALLs to and RETurns from the subroutine, also how the Stack 
pointer alters with the FUSH and POP. 


An assembler can calculate the address of all subroutines and put them 
in the object code at the correct places. It also accepts instructions 
in the form MVI 70”, obviating the need to look up ASCII codes. It 
allows the source programme to be edited, saved on cassette and 
converted to object code. Then it enters the object code into RAM at the 
correct location. Can you afford to be without such a useful tool? Two 
assemblers are listed in the DAInamic software library catalogue: the 
original DNA and the more recent SPL. 


In conclusion, a few more notes on the instructions used: 


Arithmetic instructions - ADD r, ADI d, SUB г and SUI d, where г and d 
are registers or data respectively. 

Obviously there could be a “сағғу” from the addition or a "borrow? with 
the subtractions such possibilities will be explored later, with more 
arithmetic instructions. 


Instructions — DCX H (decrement value in HL) and LXI H,address (load HL 
with an address, or a 2-byte value). 

Similar instructions are available for the other register-pairs and 
there is also an “increment? instruction. Here they are, with their ор 
codes in brackets: 


DCH B (ев) INX B (өз) LXI B,addr/value (01 xx xx) 
DCX D (iB) INX D (15) LXI D,addr/value (11 хх xx) 
DCH H (2B) INX H (23) LXI H,addr/value (21 xx xx) 
DCH SP (SB) INX SP (33) LXI &SP,addr. + (51 xx xx) 


* The stack pointer points to an address in the Stack. There is no 
reason to load it with except another address. 
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De bedoeling van het programma is een 2 kieuren tekening op een kompakte 
manier in het geheugen te zetten, zodat het als het weggeschreven wordt op 
kassette weinig plaats inneemt. 


gebruik : 


1) tekening wegschrijven ( De tekening staat op het scherm.) 

- COLORG 8 X X X (Пе achtergrondkleur moet grijs zijn ! 

- NEW (Er mag zich geen programma in het geheugen bevinden), 

- POKE #29B,0:POKE #29C,#40:NEW (Verplaats de startpositie van de Basic tot 

#4000 

- Laad het basicprogramma "КОМРАКТ" еп RUN het. Op het scherm verschijnt een 
teller die gaat tot XMAX : de X waarde van de lijn die nu in het geheugen 
gezet wordt, Als dit klaar is wordt de tekening bij wijze van test op het 
scherm gezet. Het begin- en eindadres worden afgedrukt. 

- De tekening kan nu in UT met die adressen weggeschreven worden. 


2) tekening laden 
- verplaats de starpositie van de Basic tot voorbij de tekening die je gaat 
laden (meestal is verplaatsen tot #2000 voldoende) 
- MODE X (zet de juiste mode klaar) 
- laad het machinetaalprogramma en de tekening 
- CALLM #300 (roep het programma aan) 





10 REM : КОМРАКТ-ТЕКЕМІМС 


85 - 11 - 08 door Mark Stout 
20 REM : gebruik : zie bijgevoegd artikel, opm.: na IMP INT 
30 REM : 
90 REM routine om de tekening in het geheugen te zetten 


100 A=#350:POKE A,0:AL-O:FOR 150 TO XMAX:FOR J-O TO YMAX 
110 D=SCRN(I,J):IF D<>8 GOTO 150 

120 IF ЛЕО GOTO 160 

130 POKE A+(AL*2)+1,X:POKE A+(AL*2)+2,J-1 

140  AL=AL+1:POKE A,AL:LIJN=0:GOTO 160 

150 ТЕ LIJN=O THEN X=J:LIJN=1 

160 NEXT J:A=A+(AL*2)+1:LIJN=0:AL=0:POKE A,O:PRINT I 

170 NEXT I:POKE А+1,#ЕЕ 

200 REM * Basic routine om de tekening op scherm te zetten 
210  COLORG 0 8 15 0:А=#350:1=0 

220 | B-PEEK(A):IF B=#FF THEN 260 

230 А=А+1:ТЕ BO GOTO 250 

240 FOR Ј=1 TO B:DRAW I,PEEK(A) І,РЕЕК(А+1) 22:A=A+2:NEXT J 
250  I-I41:GOTO 220 

260 PRINT "De tekening zit van #350 tot #";НЕХ$(А+1) 
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0000 @=0350 
0000 

0300 C5 
0301 D5 
0302 ES 
0303 Е5 


0304 215003 
0307 110000 





030А 7E 
030B  FEFF 
0300 САЗ603 
0310 23 
0311 FEOO 
0313 САЗ203 
0316 47 
0317 97 
0318 Ap 
0319 С5 
O31A 46 
O31B 23 
031C 4E 
0310 Е5 
031Е 62 
O31F 6B 
0320 D5 
0321  3EOF 
0323 EF 
0324 21 
0325 Di 
0326 El 
0327 23 
0328 СІ 
0329 79 
032A 3С 
0328 B8 


032C  CA3203 
032F  C31803 


0332 13 
0333  C30403 
0336 Fl 
0337 El 
0338 D1 
0339 Cl 
033A C9 
033B 





START 


ZLIJN 


NEXT 


END 


EQU 350H 

ORG 300H 

PUSH B 

PUSH D 

PUSH H 

PUSH PSW 

LXI H START 

LXI D OH 

MOV A,M 

CPI OFFH 

JZ END 

INX H 

CPI OH 

JZ NEXT 

MOV B,A 

SUB A 

MOV с, 

PUSH B 

MOV B,M 

INX H 

MOV C,M 

PUSH H 

MOV H,D 

MOV L,E 

PUSH D 

MVI 

RST 

DB 21H 

POP D 

POP H 

INX H 

POP B 
n 
A 
B 


A 


UI > 
о 
+] 
ш 


MOV 
INR 
CMP 
JZ NEXT 
JMP ZLIJN 
INX D 

JMP FOR 
POP PSW 

POP H 

POP D 

POP B 

RET 

END 






































0300 C5 05 E5 F5 21 50 03 


0310 23 ЕЕ 00 СА 32 03 47 
0320 05 ЗЕ OF EF 21 Di El 
0330 18 03 13 C3 ОА 03 Fi 





11 00 00 7E FE FF CA 36 03 
97 АЕ C5 46 23 4E ES 62 6B 
23 C1 79 3C B8 CA 32 03 C3 
El D1 СІ C9 
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1999 
1919 
1915 
1928 


11509 


= ALFANUMERIEK TOETSEN 


REM +++ DEMO 0001/0002-05-00 ~ V1.3/1.1 

REM +++ alfanumeriek toetsenbord 

REM +++ numeriek toetsenbord 

REM +++ DAI 

PRINT :PRINT “Typ iets in en sluit af met (RETURN: of" 

PRINT "'escape' (<--).":PRINT 

X=5:REM maximaal aantal in te toetsen tekens 

GOSUB 31013:REM alfanumeriek toetsenbord 

PRINT :PRINT "XE=";XE;:IF XE=@ THEN PRINT " Afgesloten met return" 
IF XE-(-1) THEM PRINT " Afgesloten met 'escape'" 

IF X«e GOTO 2799 

PRINT :PRINT "De string is: "X$ 

FOR Wei TO 299: МЕХТ W:REM wachtlus 

Х=5 

PRINT :PRINT “Voer ееп getal in еп sluit af met" 

PRINT “<RETURN> of ‘escape’ (<--)." 

GOSUB 51912: ВЕМ numeriek toetsenbord 

PRINT :PRINT "ХЕ" ХЕ; : IF XE=@ THEN PRINT " (numeriek + <RETURN>)" 
ТЕ XE-(-1) THEN PRINT " (afgesloten met 'escape')" 

IF ХЕсі THEN PRINT "  (niet-numeriek + <RETURN>)" 

PRINT :PRINT "De numerieke invoer was : "X$ 

FOR W-1 TO 200:МЕХТ W 

Х--А 

PRINT :PRINT "Voer iets in en sluit af met <RETURND>." 

FOR М=1 ТО 209: МЕХТ И 

GOTO 1309 

PRINT :PRINT "De alfanumerieke invoer werd onderdrukt en was :"3X$ 
БОТО 1100 

ЕМО 


REM ZZZZ7Z numeriek toetsenbord ZZZZZ 
GOSUB 51913: Х=0 
IF XL=@ GOTO 20012 
FOR Х1=1 TO XL 
IF MID$(X$,XI-1,1)<"@" GOTO 20014 
IF MID$(X$,XI-1,1)02"9" GOTO 20014 
NEXT XI 
RETURN 


REM niet num 

IF Х<>44 GOTO 20017:1Ғ MID$(X$,XI—1,1)4»"," БОТО 20017 
X$=MIDS (X$, 0, XI-1) 4+". “+ MIDS (XS, XT, LEN (XS) -X1) 

X=1:60TO 20011 

XE=1 

RETURN 


REM 14411 alfanumeriek toetsenbord ЖАЛАЛ 
X$z"":XE-0: XL-0 

XI=GETC: XI-GETC: XI-GETC 

XI=GETC: XIS=CHRS(XT)2 IF ХІ=0 THEN GOTO 20@33:REM get key 
IF Xi=9 THEN GOSUB 21607:REM tab-screenprint 

IF XI-13 AND XL>@ GOTO 20058:REM return 

IF XI=18 GOTO 20054:КЕМ escape (<--) 

IF XI=19 БОТО 20031:REM --> 

IF Хї=В GOTO 20047:REM char del 

IF X1<32 OR 2131264 THEN 20032:REM alfanumeriek karakter 
IF XL2-ABS OO THEN GOSUB 717@1:60TO 20032:REM hel 

IF XL-LEN(X$) THEN X$=X$+X1$:G0TO 20045 

X$=MIDS (XS, O, XL) 4XISTMIDS (XS, XL+1,LEN(X$)—XL-—1) 

XL=XL+1 
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20044 
20045 


20046 
20047 
20048 
20049 


20050 
20951 
20052 
20055 


20054 
20055 
20056 


20057 
29058 
20057 
20050 


27005 
27005 
27007 
31012 
31013 
31607 
51701 


-- ALFANUMERIEK ТОЕТБЕМ 


IF X>@ THEN PRINT ХІ; 
GOTO 20032 


REM char del 

IF XL=@ THEN GOSUB 51701:БПТ0 20032:REM bel 
YXLzXL-1:IF X50 THEN PRINT XI$; 

БОТО 20032 


REM --> 

IF XLP=LEN(X$) THEN GOSUB 31701:G0T0 20032:REM bel 
XL=XL+1z IF X20 THEN PRINT MIDS(X$, XL—i, 123 

GOTO 20952 


REM 'escape"* 
X$z"":XL-70: XE--1 
RETURN 


REM "return? 

IF X>@ THEN PRINT SPC (X-KL) 5 
XS=MIDS (XS, 0, XL) 

RETURN 


REM 22111 attentiesignaal leerkracht ZZZZZ 

ENVELOPE 0 15:SOUND 0 @ 15 @ FREG(400):WAIT TIME 25: 500М0 ОЕЕ 
RETURN 

GOTO 20006:REM numeriek toetsenbord 

GOTO 20031:REM alfanumeriek toetsenbord 

RETURN: REM scherm naar printer 

GOTO 279006: КЕМ attentiesignaal leerkracht 
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1900 
1919 
1920 
1196 
1200 
1300 
1400 
1500 
1599 
1799 
17590 


26095 
265006 


29950 
29051 
29032 
31501 
31902 





-- PAUZEROUT INE 


REM +++ DEMO 0009-95-90 / V1.1 

REM +++ pauze routine 

REM +++ DAI 

INPUT "Typ wat in en druk daarna op <RETURN> "SAS 
GOSUB 516901: КЕМ scherm schoon 

INPUT “Hoeveel seconden wachttijd ";X:PRINT :REM pauzetijd in seconden 
INPUT "Туре weer wat, en druk op <RETURN> "3 BS: PRINT 
S0SUB 31902:REM pauze 

GOSUB 31601:REM scherm schoon 

PRINT "KLAAR MET WACHTEN. ” 

END 


REM 41411 SCHERM SCHOON 44442. 
PRINT CHR$ (12) 3 2 RETURN 


REM УЛАА PAUZE ROUTINE Z427% 
IF X<=@ ОҢ X>=3@ THEN Х=1 
XT=X#50: WAIT TIME XT: RETURN 
GOTO 26006:REM scherm schoon 
GOTO 22631 :REM pauze 
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PROGRAMMING TECHNIQUES 
(fram DAInamic 19, page 359, abridged) 





On this occasion I will delve further into the various arithmetical and logical operators of 
BASIC, Let us begin with the MOD operator on which the Manual gives practically no 
explanation. If you divide 13 by 3 the result is 4 and the remainder 15 1, The MOD operator 
will produce the remainder left after the division of one number by another. Here are some 
examples as they would be done by a primary school pupil and by a DAI programmert- 


Schaal pupil Programmer 
16 divided by 5 = 3 remainder 1 16 MOD 5 = 1 
22 divided by 4 = 5 remainder 2 22 MOD 4 = 2 
36 divided by 6 = 6 remainder 0 36 MOD 6 = 6 
87 divided by 10 = 6 remainder 7 87 MOD 10=7 


Here now are some examples of how the MOD operator may be used in programs? 
1) Suppose you wish to put the X-value of a screen point into a machine language program, 
From MODE 5 onwards the X-values can be greater than 255 which is the maximum size that 
can be put in one byte with a POKE. Therefore the X-value has to be POKEd into two bytes. 
The first byte indicates if X is larger than 255 (in which case it is 1) and the other byte shows 
how much larger than 255 or 0, The first byte is POKEd with X/256 (yes 254, not 255) because 
the byte is 0 if X is less than 256 or 1 if X is greater than 255, The second byte is POKEd with 
X MOD 254, The same result could be achieved by! 

FOKE I,X/256: POKE I-1,X-PEEK(IM255 or by 

IF X2255 THEN POKE 1,1} Х-Х-256! POKE I-1,X 
ID As you know, care has to be taken to avoid a point being off the screen, It is easy to 
ensure that with MOD XMAX and MOD УМАХ, Type in the follawingi- 

10 MODE 21 XM-XMAX41! YMAX=YMAX+1 

20 DOT X,Y 211 X=(X+1) MOD XM! Y=(¥+1) MOD YM: GOTO 20 
You will have noticed that I did the MOD XM while XM=XMAX+1, This is logical as the 
coordinates can best be XMAX and YMAX but the MOD operator gives the greatest possible 
result always XM-1, thus here precisely ХМАХ, 
III) Suppose you want simply and quickly to specify the direction with cursor keys. The ASCII 
cades of these keys are 16, 17, 18 and 19, Look at the following program line! 

40 ON GETC MOD 4 GOTO 60,70,80 
When GETC is 16 we go to the next line (50), when it is 17 to line 60, when 18 to line 70 and 
when 19 to line 80, In this way the program will react to other keys but not fall to pieces ar 
give an error message, All the same there is a major fault in the abave but it is associated 
with the GETC, nat the MOD, It would he better to write! 

40 НЕОЕТС IF H=0 GOTO 40) ON H MOD 4 GOTO 40,70,80 
or 40 ON GETC MOD 5 GOTO 40,70,80,903 GOTO 40 


Now for the technical workings of the MOD operator. With A MOD B the number А is integer 
divided by B, Integer division means that any figures after the decimal point are discarded. 
Suppose that the result of the division is Q, Then afterwards А will be reduced by B#Q, We can 
learn a number of things from this. If we до a MOD 0 ме will get the error report "DIVISION 
BY ZERO’, We can, if we wish, let B be negative} the results are the same as with B positive. 
The Q becomes negative and B#Q therefore positive again, Also A can be negative but here we 
get a different answer; the result lies between 0 and -B, assuming that B was positive. This 
too is easy to see if we follow the DAI's calculations, If you try to type in PRINT T MOD -3 
you will be surprised to get a SYNTAX ERROR response, in view af my statement above saying 
that B could be negative. Well B may be negative but there must be no subtraction, The minus 
sign can denote either, depending on the context in which it is used, The solution is to put it 
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in brackets thus! PRINT T MOD (-3), MOD is an integer operator in the DAI but it can also be 
used with floating point numbers if an inexact result would be acceptable. Take for example 
MOD TPI where ТРІ-БІЗРІ-0.28.. The 6.28 would be truncated to 6 by the MOD so the result 
will not be exactly right. 


Other operators such as WW and 7/” generally give few problems, as long as we are working in 
floating point, although with integer division there are same things which require explanation 
and which are not explained in the Manual, If you type in, after IMPINT, 715/9, 721/7, 274/2 
you will get the correct results, but you will find strange answers if you type ?13/3, 722/5, 
275/7, This latter is because after division, the remainder has been ignored} the number has 
been rounded off, Sometimes this rounding-off can play an unwanted role, If for example I 
wanted to draw а number of lines. Drawing from 0,0 to 10,30 and then moving with 3,2 further 
to the right. The Following program will do the job for 20 linest- 

10 MODE 4! REM After IMPFPT 

20 FOR X=0 TO 64 STEP 3.2 

30 DRAW Х,0 X+10,30 22 

40 NEXT 
But the DRAW command expecting integers rounds off the floating point numbers, thus making 
the space between the lines sometimes 3 and other times 4, Louis Gidney had a clever but 
complicated solution for this, 
Problems can also arise when comparing A% and B! if A% has been rewritten to a floating point 
number before the comparison is made, Although we can be sure that one is smaller than the 
other, a comparison like that can sometimes give the reversed result, again merely due to the 
rounding off error at the conversion stage, Nico Looije produced this gem ! 

10 IF INT (2^3)-8 THEN PRINT "It is truly the same" 
‘Raising +++ to the power of’ has its own problems, The little arrow-up sign that we use is 
an operator that expects a floating point, so any integers will be converted. With A“B the В 
may be a fraction or negative. The definition, and therefore the calculation are different from 
those learnt in our schooldays. Examples like 2^3 meaning 2%2%2 and 7^4 meaning 7#7#7#7 etc 
are easy to understand and this new method of writing is useful, particularly when the 
exponents are large. We can construct a simple tables 2^4-16, 2^3-8, 2^2-4, 2^1=2 and then 
grasp the idea that the next will be 2^0=1, 2*(-1)=0,5, 2^(-2)-0,25 etc, It may be harder to see 
what 2^5 equals but if we know that 2^3*2^5-2^8 (adding the exponents) it follows that 
4584545 must equal 4^1 which equals 4, Now the number which must be multiplied by itself to 
make 4 is 2, and therefore 4^,5-2, the same as SOR), We can get the cube root this way too! 
64*(1/3)=4 but only after an IMPINT, otherwise we get the answer 1,0 because the integer 
division of 1/3 will give the exponent 0, Then 64°0=1, It is not possible to raise a negative 
number to a power of anything. eg! (-4)^2 is not acceptable to the DAT but (-4)#(~4) is, 


Although the priority order used by the DAI for evaluating the various operators is given in 
the Manual (para 6.2.2.5) І до not think they can be well known, Programmers are still using 
too many brackets in order to ensure correct sequencing, just as in written mathematics, That 
of course slows dawn the running speed, although the odd set may make the listing more easily 
readable. The highest priority level, ie; the first operator to be evaluated, is any expression 
in brackets, The next priority level is for ‘raising «to the power of’, The third level contains 
three operators! multiplication, division and modulo, As these three are on the same priority 
level the are evaluated in the order they appear from left to right, as long as none are 
bracketed. 
222 MOD 30#2=24 and 111/3 MOD 10-7 etc. 
The fourth level has addition and subtraction. The operators on Levels lower than this will be 
left For a future article, 
Frank H Druiijff 
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Problems ith Printing TEEF 
(from DAInamic 19, page 363) 





Have you ever switched out the printer with POKE #131,1 in order to change something in your 
text and incorrectly made the change so that SYNTAX ERROR appeared? Then found that your 
clean sheet of paper was spoilt with the same error report, Setting the printer OFF LINE does 
not prevent that but switching off its power does, Unfortunately you then lose the commands 
like tab and double printing that you have already sent, The problem is caused because the 
DAI resets #131 to 0 when there is an error message, I briefly outlined this in DAInamic 18, 
Every time that anything is to be printed interrupt 5 is performed. If we arrange for this to 
make a detour to set #131 we can ensure that the printer only prints when we want it ta. 


Our routine, to be run on every interrupt 5, is only ten bytes long and can be kept without 
problems, in the envelope area, If the start address chosen is #250 the routine can be inserted 
in UTility with the Substitute command and vector 5 сап be set to jump to address #240. From 
then on you can control the printer at will withi- 

Printer on | POKE #240,0 

Printer off! POKE #240,1 
Here is how to put the routine in its placei- 

UT 
| 5240 [SPACE] FS ЗЕ 01 32 31 01 C3 FD AC [CURSOR LEFT] 

VS (SPACE] 260 [CURSOR LEFT] 
1 hope this will give pleasure to many, 








Frank H Druijff 


TECH — TIP 
(from DAInamic 19, page 368, abridged) 





MX80-100 WITH GRAFTRAX + ТҮРЕ III EPROMS by A de Dauw 


Users of the MX80-100 now have the possibility of using all the functions of both the 
GRAFTRAX and the type III printers. You have at your disposal both EPROM sets and can 
then have italic and superscript (extra small) characters, GRAFTRAX has an 80 character set 
but type ПІ has a 132 character set, There is a vast saving in screen printing time too! 
GRAFTRAX takes 21 minutes to print a 9 grey scale screen copy but type III barely 8 minutes. 
АП this is made possible by mounting the Type III EPROM set directly above the existing 
Graftrax set and soldering the pins of the tap set to the pins of the bottom set, except for the 
valtage supply pins 12 and 24 оп each chip which are gently bent up so that a fine wire can be 
soldered to each. The supply is then fed to these pins via a miniature Z-pole, 2-way switch 
which can be mounted at the rear of the printer, This switch enables you to switch from 
Graftrax to Type IIT EPROMs as required. 


[ I think there is an error in the diagram on page 369; the wire from the centre tag on the right 
hand side of the switch is shown leading to a supply pick-up point on the circuit board. That 
point is marked +24v on the diagram but is referred to as +5v in the text, If anyone intending 
to modify his printer in this way would like a translation of Mr Пе Dauw's constructional 
details please contact me on 0272-424290, Bill Read 1 
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EPROM Programming Equipment for 2716/2722 
«ғат DAInamic 19, pages 385 and 411) 





The programming equipment can be mounted оп the wire-wrap field of a universal PC DCE BUS 
INTERFACE CARD, and can thus be used in parallel with a fast cassette and all other likely 
DCE cards, It is suitable for both 2K and АК EPROMS, The program recognises a number of 
commands which are input as a single character, sometimes Followed by one or more addresses, 
Оп start-up the systems announces itself with! 

PROM PROGRAMMER, 

WHICH TYPE OF EPROM 

(716-2 2732-24 
After typing-in a 2 or a 4, depending on the EPROM type to be used, the program responds 
with? 

INSERT ЕРКОМ AND TYPE SPACE 
Now it is safe to insert the Eprom in the programmer (the green LED is on) and type Space. The 
system replies with the Prompt and waits for a command. It is normal to check the Eprom to 
ensure that it is empty, or properly erased. This is done with the command (T), The program 
reads the Eprom (yellow LED on), verifying that every memory location contains FF, If that 
condition is met, up comes the message! READY FOR PROGRAMMING, When that condition is 
not found the resultant message is} EPROM NOT EMPTY, 
When you are ready to continue with the actual programming give the command (P) followed by 
three hexadecimal addresses each separated by a space (like with the Display command in 
Utility), The first address is the start address of the memory area which will be brought into 
the Eprom (begin source-buffer)) the second address is the end address of this memory area 
(end-address source-buffer)} finally the third address is the start address of the data which 
is to go into the Eprom, For this, always use the start of a block of 256 bytes (page), While 
programming is in progress the red LED glows. When programming is complete the program 
tests if it has been fault free and reports; PROGRAMMING DONE followed by either NO 
ERRORS or ERROR AT ADDRESS xxxx , where xxxx denotes the address of the first Fault. 
It is also possible to read the contents of an Eprom, The command is (В) which fills the memory 
area commencing at the hexadecimal address A300, with the contents of the Eprom. 
The (U) command will give a return to UTILITY, 
Eprams may only he inserted or withdrawn fram the socket while the green LED is glowing. 


DELETE — how to remove part of a program 
(from DAInamic 19, page 413) 


It is often desired to remove a superfluous part of a program or to separate a part of it, Some 
BASIC dialects include a special command for this (ед) DELETE in TRS 80 Basic) but DAI Basic 
does not. However there are a number of ways of deleting something! 


1. Typing-in again the numbers of the lines to be removed. A slow method when used for a 
large section of program. 
2, Put the section of program to be saved in the Edit buffer} clear the text buffer} copy the 
Edit buffer into the text buffer. If for example we wish to save a subroutine which is on lines 
1000 to 2000 and cancel the rest of the program, it can be done as follows! 

“CLEAR 3000 

*EDIT 1000-2000 

CBREAK? CHREAK- 
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#NEW 5 
*POKE 309,2 | The time taken 
ү : , Е š 4 : 3 obviously corresponds to the number of items but in practice this delay is 
This method is especially suitable for separating part of a program so that it can be used in | ат 
another program, It can only be used when the part to be saved is a continuous block of lines, | 222 Y е OF course, to sert thipusanda Ee etd, suited to large 
3 Тһе "Monte Carlo method"! If after pressing RETURN following the EDIT 1000-2000 you ü 
very quickly press BREAK twice it is possible for a section of the program between 1000 and HEILS 
2000 to disappear. The rest can then be removed by method 1, This method has support among x und SALE DON d АН ка 
those who like trying to be faster than the computer, that is, folk in the “Games & Strategy" 30 CLEAR 2000: DIM А/255) 
rather than the "Serious Programming" category, : " на 
4, То eliminate for example lines 70 - 120 give tin the command mode); Sé See 5 Е eens 5. Ge EE NEXT 
= 55; = із H + 
| *EDIT 70-120! EDIT n (where n is an arbitrary number) 50 PRINT! PRINT! PRINT: PRINT "SORTING IS TAKING PLACE! 
Lines 70 to 120 appear on the screen in Edit mode. Then press <BREAK> «SPACES. Line n 70 N-254: REM N-NUMBER OF ITEMS TO BE SORTED 4 
appears оп the smreen, Press CUREARO <ERPAK>, | TE Е 80 Е=0: REM SORTING N ITEMS, STARTING FROM AIE) 
The method seems to work without fail but I cannot explain how, I have tried to include this 20 GOSUB 20000: REM SORTING 
trick in a Basic program but it then does not appear to work in all cases, (with help from Mr 100 PRINT! PRINT! PRINT "ITEMS SORTED!"! PRINT 
Dufaur's program in DAInamic 16, р200), 110 FOR I=0 TO 255! PRINT A(1),1 NEXT! PRINT 
170 END 
When you have removed a large part of a program it is advisable to tidy up the symbol table, 
as it will still contain the variables fram the deleted section of program! ке fre EER Шіл = N CR ROUTINE 
#CLEAR xxxxx (sufficient to hold the whole program) £0020 САМ #306, ACE) e ма 
*EDIT А 60030 RETURN 
“BREAK? <BREAK> 
aNEW 
#POKE 309,7 dos Vandebergh 
CS DS ES FS ЕВ ZA 00 03 44 
Bu 7 Lu к D : 2: 2 s d 4-1 
SORTING by simple comparison in machine SCH 5 са So © 25 Se 5% л 53 = 
language (from DAInamic 19, p370) Copyright Christian POELS - 2/4/83 2 ) ЗС 03 54 5D CD 6B 03 06 El 78 
The program below sorts a series of items from a set or a whole table, The sorting can be = NN x - қ T AE oi Не 2 Mom ТЕ 2: 12 
performed on the complete table or only on part of it. The number of items to be sorted must b PE a 12440415, e TE А 12 22 pi 
be stored at the addresses #200 and #301 and the call to the routine is made in the following š 425: Erg a E Ma Do qucd 
way! 32 04 03 23 7E 32 05 03 2E 2E 


CALLM #306,NAME OF TABLE (INDEX OF FIRST ITEM OF THE SERIES) 00 00 00 09 00 00.00.09 00 00 


If a table has to be sorted, we need to know that all its items are stored in the memory, line 
by line, Thus, the items too will be sorted, line by line, 
To try out the example, type in the machine code and the basic, and record them on tape, 
RESET, Alter the pointers toot 

POKE #Z9B,0: POKE #Z9C,M CLEAR 1000, Load the machine code. NEW, Load the basic. 
HUN, In this example, the sorting is done for a set of 256 items whose values are all between 











-500 and 500, The sorting in itself takes about 6 seconds. Here are some examples of time i PAGE 99 -- ADC CONVERTOR 
taken} 
| : 3028@ PRINT "DRUK OP DE SPATIEBALK OM 
No, of items: Tine (secs)? VERDER TE БААМ..." 
100 1 50285 IF 5Р1=1.0 THEN CURSOR 25,2:PRINT 
200 а 5РС (19) :CURSOR 25,2:PRINT А!" Vl": 
300 8 CURSOR 25,2 
200 15 30290 SPi= i 
590 2 39390 G=GETC:IF GC»32 SOTO 30020 
600 32 30350 POKE #75,95:DW=A:GOSUB 20120 
1000 89 30500 RETURN 
1500 209 
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Did you ever thougt to program your DAI in PASCAL. FORTRAN, С or COBOL ? 
Whats about having a fast floppy system for your ORI PC with 24 MB of storage ? 


DAlstar is your solution! 


DAlstar is an expansion system that THE CP/M OPERATING MODE 

makes your DAI a professional PC. Now you have full access to TURBO PASCAL, FORTRAN, C, COBOL, MBASIC, FORTH, 
You simply connect it to your DAI - DBASE. MULIIPLAN and Sl that EE 
and just you have two Sua E Mines asss SR 


° times faster than on the DAI PC. 
computers in one ! 

This is done by the DAlstar's integrated 
computerboard with a fast Z80 CPU, 64KB 
of RAM and a lot of other teatures. 


THE FLOPPY MODE 


You work with your DAI as usual. 
A small disc-operating-system 
(DOS) is loaded into the memory 

at power on. It extends the DAI- 
BASIC by 32 new instructions that 
are really programmable and allow 
you a comfortable filehandling. 

The DOS doesn't only support loa- 
ding and saving of all kinds of 
programs - it offers you the possi- 
bility to work with pictures, text 
files, ML-programs and random access 
files with variable record length. 


At the same time your DAI PC is working 
as a colour graphics terminal that even 
supports sound capabilities. In сопве- 
quence of the parallel processing drawing 
complex pictures is much faster than on 
а single DAI. 


This parallel processing even allows to 
load a ML-program into the DAI and to 
duod run it in the background. 

New instructions allow you to draw lines, 
circles, circle sections, polygons and to 
fill whole areas. It's easy to draw com- 
plex graphics and complete them with text 
in different fonts, scales and colours. 
That's even possible at a resolution of 
512°240 pixels. And when your picture is 
finished you can store it onto disc with 

a single command. 








Since the disk format is the same 
as in the CP/M mode, you can exchange ріс- 
tures, textfiles and ML-programs between the two modes. 


To be as compatible as possible with the existing DAI software, we 
have made the DOS very small ( 1,8 KB ). And an even smaller and moveable 
TINYDOS allows you to run nearly all existing DAI software without modifications. The text mode is supported by а virtual 


Screen that can be configured to a logi- 


The DOS supports a cassette recorder, a MDCR and allows the use of DCE-bus peripherals. cal size of up to 120°120 characters. This 
method allows you to use every screen size 
To meet the needs of assembly language programmers we integrated an assembly language interface you like. The visible window moves across it. 
that allows the use of DOS commands from assembly language. Sector read and write command allow 
the direct disc access. Getting CP/M software for the system is 
А quite easy since DAlstar is able to read the 
Last not least you won't have storage problems any more with your disk storage of up to 2,4 MBytes formatted. wide spread OSBORNE I disc format. 
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Intrested ? Then please request our free 
informationsheet with a detailed аеѕсгір- 
tion, prices and options. 








DAIstar, K.Peter & R.Schillinger 
Neubriach 13, 7982 Balenfurt, GERMANY 











This document was written with WORDSTAR on a DAI with DAIstar 
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brings your ORI up to date... 

















